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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELDBMS 

PURPOSE:  PRODUCES  NDML  STATEMENT  TO  DELETE  DBMS  DEFINITION 
FROM  THE  DBMS  TABL 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DELDBMS 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  PRODUCES  A  DELETE  NDML  STATEMENT  TO 
DELETE  A  DBMS  DEFINITION  FROM  THE 
DBMS  TABLE. 


ARGUMENTS : 


DBMS -NAME  DSPLY[X(30) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELDBRT 

PURPOSE:  DELETE  ALL  RECORD  TYPE  ASSOCIATIONS  WITH  THE  DATABASE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELDBRT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  WAS  DESIGNED  FOR  USE  WITH 

DRPDB  (DROP  DATA  BASE) 

THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  RECORD  TYPE, 

SELECT  A  RECORD  TYPE  ONE  AT  A  TIME  IN  THE  NDML  LOOP, 
DELETES  THE  RECORD  TYPE,  DELETES  THE  TEXTUAL  DESCRIPTION, 
AND  ADDS  THE  REUSABLE  NUMBER  BACK  IN  THE  CDM. 

IT  HAS  ONE  INPUT  PARAMETER  (DB-ID)  AND  ONE 
OUTPUT  PARAMETER  FOUND-STATUS  (0  GOOD  AND  -1 
AN  ERROR  HAS  OCCURRED.  ALL  ERRORS  ARE  COVERED 
BY  ERROR  STATEMENTS  IN  THE  ROUTINE. 

DO  NOT  DELETE  RECORDS  IF  THE  RECORD 
IS  HORIZONTALLY  PARTITIONED 


ARGUMENTS : 


DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


DB-ID 

FOUND-STATUS 


SRVRET 

UNIQENO 

ERRPRO 


ROUTINES  CALLED: 


VERHORZ 

UERROR 

DELRTY2 

ADDRNUM 

DELTEXT 

ERRPRO 
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NAME:  DELDBST 

PURPOSE:  DELETE  ALL  RECORD  SETS'  ASSOCIATIONS  WITH  THE 
DATA R A 9 P 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DELDBST 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  WAS  DESIGNED  FOR  USE  WITH 

DRPDB  (DROP  DATA  BASE) 

THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  SET, 

SELECT  A  SET  ONE  AT  A  TIME  IN  THE  NDML  LOOP, 
DELETES  THE  SET,  DELETES  THE  TEXTUAL  DESCRIPTION, 
AND  ADDS  THE  REUSABLE  NUMBER  BACK  IN  THE  CDM. 

IT  HAS  ONE  INPUT  PARAMETER  (DB-ID)  AND  ONE 
OUTPUT  PARAMETER  FOUND-STATUS  (0  GOOD  AND  -1 
AN  ERROR  HAS  OCCURRED.  ALL  ERRORS  ARE  COVERED 
BY  ERROR  STATEMENTS  IN  THE  ROUTINE. 


ARGUMENTS : 


DB-ID  DSPLY[S9 (9) ] 

FOUND-STATUS  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 

ROUTINES  CALLED: 


VERRSUS 

UERROR 

DELRST2 

ADDRNUM 

DELTEXT 

ERRPRO 
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NAME:  DELDIV 

PURPOSE:  DELETE  FROM  DATA- ITEM 
LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  DELDIV 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETE  FROM  DATA -ITEM. 


ARGUMENTS : 


VIEW-NO  DSPLY[S9 (9) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELDOM 

PURPOSE:  DELETE  A  DOMAIN_CLASS  OCCURRENCE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELDOM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETES  A  RECORD  FROM  DOMAIN_CLASS 
FOR  A  SPECIFIC  DOMAIN  NUMBER. 


ARGUMENTS : 


DOM-NO  DSPLY [S9 (9) ] 

NDDL-STATUS  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELDSCT 

PURPOSE:  DELETE  DESCRIPTION  TYPE  FROM  CDM  IF  NO  USAGE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELDSCT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


YPE  FROM  CDM  IF  NO  USAGE 

DESCRIPTION  :-  DELETES  DESCRIPTION  TYPE  FROM  CDM  IF 
NO  OTHER  USAGE  EXISTS. 

YPE 
YPE  A 

WHERE  A.DESC  TYPE  =  :DESC-TYPE; 


ARGUMENTS : 


DESC-TYPE  DSPLY[X(30) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  DELDT 

PURPOSE:  DELETE  U S ER_DEF_DAT A_T Y PE  GIVEN  THE  DATA  TYPE  NAME 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELDT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  DELETES  A  RECORD  FROM  USER_DEF_DATA_TYPE 
FOR  A  SPECIFIC  DATA  TYPE  NAME. 


ARGUMENTS : 


DSPLY [X ( 30) ] 
DSPLY[S9 (9) ] 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


DATA-TYPE-NAME 

NDDL-STATUS 

INCLUDE  FILES: 
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NAME:  DELDTD 

PURPOSE:  DELETE  USER_DEF_DATA_TYPE  FOR  A  GIVEN  DOMAIN  NUMBER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELDTD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETES  A  RECORD  FROM  USE R_DE F__DAT A_T Y PE 
FOR  A  SPECIFIC  DOMAIN  NUMBER. 


ARGUMENTS : 


DOM-NO  DSPLY[S9 (9) ] 

NDDL-STATUS  DSPLY [S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELDTNO 

PURPOSE:  DELETE  ALL  DATA  TYPES  ASSOCIATED  WITH  A  DOMAIN 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELDTNO 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  COM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  WILL  RETRIVE  ALL  US ER_DE F_DATA_T Y PE 
NUMBERS  (USDF_DT_NO)  ASSOCIATED  WITH  A  GIVEN  DOMAIN 
NUMBER  AND  DELETE  ALL  TEXTUAL  DESCRIPTIONS 
ASSOCIATED  WITH  THE  DATA  TYPE  AND  ADD  THE 
USDF  DT  NO  BACK  INTO  THE  CDM. 


ARGUMENTS : 


DOM-NO  DSPLY[S9 (9) ] 

RETURN-STATUS  DSPLY £  S9 (9) ] 


INCLUDE  FILES: 


UNIQENO 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ADDRNUM 

DELTEXT 

UERROR 

ERRPRO 
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NAME:  DELECON 

PURPOSE:  DELETE  ENTITY  CONSTRAINTS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELECON 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DELETES  ENTITY  CONSTRAINTS  FROM 
EC  CONSTRAINT 


ARGUMENTS : 


EC-NO  DSPLY[S9 (9) ] 

RETURN-STATUS  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELECRF 

PURPOSE:  DELETE  FROM  VIEW_EC_XREF  GIVEN  VIEW_NO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELECRF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  routine  deletes  records  from 
VIEW_EC_XREF  given  a  view  number. 


ARGUMENTS : 


VIEW-NO  DSPLY[S9  (9)  ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 
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NAME:  DELFLDS 

PURPOSE:  DROP  DATAFIELDS  FROM  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELFLDS 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DROP  THE  FIELDS  LISTED  IN  THE  DF-TABLE. 

ALSO,  DELETE  THE  DESCRIPTION  TEXT,  AND 

FINALLY  ADD  THE  DF-NO  TO  THE  REUSABLE  NUMBER  POOL. 

ND  ADD  THE  DF-NO 

TO  THE  REUSABLE  POOL. 


ARGUMENTS : 


DFT-TABLE 
DBMS -NAME 
RET-STATUS 


INCLUDE  FILES: 


UNIQENO 

DFTBL 

ERRPRO 

ROUTINES  CALLED: 


VERDFUS 

UERROR 

VERDSL3 

DELDSL3 

DELSTM3 

DELRST3 

DELTEXT 

ADDRNUM 

DELDFL3 

VERRCBS 

FNDASA 

VERMPDF 

VERDFPA 

VERMUNI 

ERRPRO 


RECRD 

DSPLY[X(30)  ] 
DSPLY[X(5)  ] 
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NAME:  DELHPN 

PURPOSE:  DELETE  A  HORI ZONTAL_PART  OCCURENCE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELHPN 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETES  A  RECORD 

FROM  THE  HORIZONTAL  PART  TABLE 

FOR  A  GIVEN  ENTITY, 

PARTITION  AND 

RECORD  TYPE  NUMBER. 

ARGUMENTS : 

EC-NO 

DSPLY [S9 (9) ] 

RT-NO 

DSPLY[S9 (9) ] 

HP-NO 

DSPLY [S9 (9)  ] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELHPNA 

PURPOSE:  DELETE  ALL  PATITION  RECORDS  FOR  AN  ENTITY  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELHPNA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETES  ALL  RECORDS  FROM  THE  HORI Z ONTAL_PART  TABLE 
FOR  A  GIVEN  ENTITY  AND  PARTITION  NUMBER. 


ARGUMENTS : 


EC-NO 

HP-NO 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY [X ( 5) ] 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELHST 

PURPOSE:  PRODUCES  NDML  STATEMENT  TO  DELETE  A  HOST  DEFINITION 
FROM  HOST  TABLE. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DELHST 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  NTM 
SUBDIRECTORY:  MONITOR 


DESCRIPTION: 


-  PRODUCES  A  DELETE  NDML  STATEMENT  TO 
DELETE  A  HOST  DEFINITION  FROM  THE 
HOST  TABLE. 


ARGUMENTS : 


HOST-NO  DSPLY[S9 (9) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DEIKDKC 

PURPOSE:  DELETE  ALL  KEY  CLASSES  AND  INHERITED  KEYS  FOR  AN 
ENTITY 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DELMDKC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DELETES  THE  KEY  CLASSES,  KEY  CLASS  MEMBERS, 
COMPLETE  RELATIONS  AND  CROSS  REFERENCES  FOR  A  GIVEN  ENTITY 
CLASS. 


ARGUMENTS : 


EC-NO  DSPLY[S9 (9) ] 

ERROR-STATUS  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 


ROUTINES  CALLED: 


DELKCM 

DELCMPR 

DELI AUK 

DELKC 

ADDRNUM 

SELECNM 

UERROR 

ERRPRO 
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NAME:  DELMDRC 

PURPOSE:  DELETE  ALL  RELATION  CLASSES  FOR  AN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELMDRC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DELETES  THE  RELATION  CLASS  FOR  A  GIVEN  ENTITY. 
MODIFIED  5/11/89:  TO  HANDLE  BOTH  LINK  AND  CATEGORY  RELATIONS 


ARGUMENTS : 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 


EC-NO 

ERROR-STATUS 


ROUTINES  CALLED: 


DELRC 

DELLR 

DELRCKW 

DELTEXT 

ADDRNUM 

DELCR 

DELCM 

SELECNM 

UERROR 

ERRPRO 
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NAME:  DELMTAG 

PURPOSE:  DELETE  MAPPING  FOR  ONE  TAG 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELMTAG 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


_  7 

This  routine  will  delete  auc  to  field  and  set 
mappings  for  one  tag. 


DSPLY [S9 (9) ] 
DSPLY[X(10)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ARGUMENTS : 


TAG-NO 

AISM-MAP-TYPE 


ROUTINES  CALLED: 


UERROR 

DELPDF 

DELASM 

DELAISM 

ERRPRO 
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NAME:  DELOAC 

PURPOSE:  DELETE  ALL  OWNED  AND  INHERITED  ATTRIBUTES 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELOAC 

SOURCE  FILE  TYPE:  PRC 

HOST; 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  SEARCHES  FOR  ALL  ATTRIBUTE  USE 
CLASSES  WHERE  THE  TAG  NUMBER  MATCHES  THE 
INPUT  PARAMETER.  EACH  OCCURRENE  IS  DELETED 
(DELAUC)  AND  THE  OWNED  ATTRIBUTE  CLASS  IS 
DELETED  (DELOWAC) . 


ARGUMENTS : 

AC-NO  DSPLY[S9 (9) ] 

RETURN-STATUS  DSPLY [ S9 ( 9 ) ] 

INCLUDE  FILES: 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


DELCRP1 
U ERROR 
DELAUC 
DELOWAC 
ERRPRO 
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NAME:  DELPARM 

PURPOSE:  DELETE  ALL  PARAMETERS  FROM  MODULE_PARAMETER  FOR  A 
GIVEN  MODULE  NAME 
LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  DELPARM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETE  ALL  OCCURRENCES  FROM  MODULE_ 

PARAMETER  TABLE  FOR  A  GIVEN  MODULE  NAME  (MOD_ID) 


ARGUMENTS: 


MOD-ID  DSPLY[X(10) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELPDF 

PURPOSE:  PROGRAM  NAME  DELPDF 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DELPDF 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETES  ALL  DATA  FIELD  MAPPINGS  FROM  THE 
CDM  FOR  A  GIVEN  TAG  NUMBER. 


DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ARGUMENTS : 


TAG-NO 

RET-STATUS 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELPDI 

PURPOSE:  DELETES  FROM  PROJECT  DATA  ITEM. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  DELPDI 

SOURCE  FILJ  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  routine  wil  delete  records  from 
PROJECT-DATA- ITEM  given  the  view  number. 


ARGUMENTS : 


VIEW-NO  DSPLY[S9 (9) ] 

RET-STATUS  DSPLY[X(5)] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELPSB 

PURPOSE:  NDML  STATEMENT  TO  DELETE  A  PSB  NAME  FROM  PSB  TABLE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  DELPSB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  PRODUCES  A  DELETE  NDML  STATEMENT  TO 
DELETE  A  PSB  NAME  FROM  THE  PSB  TABLE 


DSPLY[X(8) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ARGUMENTS : 


PSB-NAME 

RET-STATUS 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELQCRF 

PURPOSE:  DELETE  FROM  VIEW_QUALIFY  CRITERIA  GIVEN  VIEW_NO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELQCRF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  routine  will  delete  qualification 
criteria  text  as  part  of  'where'  clause  in  NDDL 
'CREATE  VIEW'  command. 


ARGUMENTS : 


VIEW-NO 
RET- STATUS 


DSPLY[S9 (9) ] 
DSPLY [X (5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELQCTG 

PURPOSE:  DELETE  FROM  VIEW  QUAL  XREF  GIVEN  VIEW  NO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELQCTG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  routine  deletes  records  from 
VIEW_QUAL_XREF  given  a  view  number. 


ARGUMENTS: 


VIEW-NO  DSPLY [S9 (9) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME :  DELROJ 

PURPOSE:  NDML  COMMAND  TO  DROP  A  RECORD  OUTER  JOIN  MAPPING 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELROJ 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


RC-NO 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


DSPLY[S9 (9) ] 
DSPLY [ X ( 5 )  ] 
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NAME:  DELROJE 

PURPOSE:  NDML  COMMAND  TO  DROP  A  RECORD  OUTER  JOIN  MAPPING 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELROJE 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


EC-NO 

RET-STATUS 


DSPLY [ S9 (9) ] 
DSPLY [X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELSMOD 

PURPOSE:  DELETE  SOFTWARE  MODULE  OCCURRENCE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELSMOD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETE  OCCURRENCE  FROM  SOFTWARE_ 

MODULE  TABLE  FOR  A  GIVEN  MODULE  NAME  (MOD_ID) 


ARGUMENTS : 


MOD-ID  DSPLY [X ( 10) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELUNIN 

PURPOSE:  DELETE  RECORD  UNION  FOR  A  GIVEN  ENTITY  AND  RECORD 
TYPE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DELUNIN 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETE  RECORD  UNION  ON  ECRTUD  TABLE 
FOR  A  GIVEN  ENTITY  NUMBER  (EC_NO)  AND 
RECORD  TYPE  NUMBER  (RT_NO) 


ARGUMENTS : 


RT-NO 

EC-NO 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DELVIEW 

PURPOSE:  DELETE  RECORD  CLASS  FROM  USER_VIEW 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DELVIEW 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

-  Delete  record  class  form  USER  VIEW. 


ARGUMENTS : 


VIEW-NO  DSPLY [ S9 ( 9 ) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DEPEC 

PURPOSE:  RETREIVE  ALL  SUB-ENTITIES  OF  A  STRUCTURE  INTO  A  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DEPEC 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  assumes  the  DEP-EC-TABLE  has 

been  initialized.  Selects  all  the  entities  in  the 
structure (down)  of  a  given  entity  then  load  each  of 
those  entities  into  the  DEP-EC-LIST. 

-  REPLACE  ORACLE  STRUCTURED  TREE  QUERY  WITH 
ITERATIVE  FETCH  PROCESS.  ALTHOUGH  FOR  THE  GE  REHOST 
TO  INGRES,  IT  MAKES  THE  ROUTINE  SQL-STANDARD. 


ARGUMENTS : 


DSPLY[S9 (9) ] 
RECRD 

DSPLY[X(5) ] 


FROM-EC-NO 

DEP-EC-LIST 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

EOD 

DEPECL 

ERRPRO 

ROUTINES  CALLED: 


UERROR 

SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTOC 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLCLS 

SQLAD1 

SQLFCH 

LDECLST 

ERRPRO 
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NAME:  DEPENTD 

PURPOSE:  DRIVER  GENERATE  CREATE  ENTITY  COMMANDS  FOR  DEP-EC 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DEPENTD 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 

FROM-MOD-NAME 

DSPLY [X (30) ] 

KEYWORD-FLAG 

DSPLY [X] 

ALIAS -FLAG 

DSPLY [X] 

DESC-FLAG 

DSPLY [X] 

ATTR-FLAG 

DSPLY[X] 

DEPENT-FLAG 

DSPLY [X] 

NKEY-FLAG 

DSPLY [X] 

TO-MODEL-NO 

DSPLY [S9 (9) ] 

FROM-MODEL-NO 

DSPLY [S9 (9) ] 

RC-DEPKC-LIST 

INCLUDE  FILES: 

ERRCDM 

RCDEPKC 

DEPECL 

ERRPRO 

ROUTINES  CALLED: 

DEPENT 

ERRPRO 
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NAME:  DEPFROM 

PURPOSE:  GENERATE  CREATE  RELATION, DESCRIBE  COMMANDS  IN  THE 
TO-MODEL 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  DEPFROM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  SELECTS  ALL  THE  RELATIONS  IN  WHICH  THE 
FROM-ENTITY  IS  THE  DEPENDENT  ENTITY.  IF  THE  SAME  ENTITY 
EXISTS  IN  THE  TO-MODEL  BUT  NOT  THE  RELATION,  THEN  A  CREATE 
RELATION  AND  DESCRIBE  COMMANDS  ARE  GENERATED  FOR  THE 
FROM-RELATION . 

MODIFIED  5/2/89:  TO  HANDLE  NEW  RELATION  CLASS  DEFINITION  AND 
LINK_RELATION 

ARGUMENTS : 


FROM-EC-NO 

TO-EC-NO 

FROM-EC-NAME 

TO-EC-NAME 

TO-MOD-NO 

FROM-MOD-NO 

KW-FLAG 

DESC-FLAG 

COMBINE-TYPE 

RCNO-LIST 


DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [X( 30)  ] 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [ 9 ] 
DSPLY [9] 
DSPLY [ 9 ] 
RECRD 


INCLUDE  FILES: 


SRVRET 

RELTBL 

ERRPRO 


ROUTINES  CALLED: 


SELECNM 

VERLR 

VERENT 

VERRCNM 

GENRNME 

BLKCL1 

MIGREL 

CMBRKW 

ADDPARM 

GENDESC 

ERRPRO 
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NAME:  DEPKCM 

PURPOSE:  SELECT  RELATIONS  WHERE  TARGET  ENTITY  IS  DEPENDENT 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DEPKCM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Select  all  the  relations  in  which  the  target 
entity  entity  is  dependent  and  builds  the  key  class  for 
independent  entity  selected  by  calling  BLKCL1 . 


ARGUMENTS : 


FROM-EC-NO  DSPLY[S9 (9) ] 

FROM-MOD-NO  DSPLY [S9 (9 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


BLKCL1 

ERRPRO 
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NAME:  DEPKCM1 

PURPOSE:  SELECT  CATEGORY  RELATIONS  WHERE  TARGET  ENTITY  IS 
DEPENDENT 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DEPKCM1 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Select  all  the  category  relations  in  which  the  target 
entity  entity  is  dependent  and  builds  the  key  class  for 
independent  entity  selected  by  calling  BLKCL1. 


ARGUMENTS : 


FROM-EC-NO  DSPLY [S9 (9) ] 

FROM-MOD-NO  DSPLY [S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


BLKCL1 

ERRPRO 
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NAME:  DEPREL 

PURPOSE:  DEPREL:  FOR  EACH  LEVEL  OF  RELATIONS  IN  FROM-MODEL 
GENERATE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DEPREL 
SOURCE  FILE  TYPE:  PCO 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 

MODEL-NO 

DSPLY [S9 (9) ] 

EC-NO 

DSPLY [S9 (9) ] 

MODEL-NAME 

DSPLY [X (30) ] 

KEYWORD-FLAG 

DSPLY [9] 

DESC-FLAG 

DSPLY [9] 

RC-DEPKC-LIST 

RE  CRD 

DEPENT-FLAG 

DSPLY [9] 

MIGRATES-FLAG 

DSPLY [ 9 ] 

TO-EC-NAME 

DSPLY [X( 30)  ] 

HOLD-RC-INDEX 

DSPLY [9999] 

INCLUDE  FILES: 

ERRCDM 

EOD 

RCDEPKC 

ERRPRO 

ROUTINES  CALLED: 

SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLAD1 

SQLFCH 

UERROR 

FNDRCEC 

SELECNM 

GENREL1 

GENDESC 

ALLKEY 

ERRPRO 
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NAME:  DEPREL1 

PURPOSE:  DEPREL1 :  FOR  EACH  LEVEL  OF  RELATIONS  IN  FROM-MODEL 
GENERATE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DEPREL1 
SOURCE  FILE  TYPE:  PCO 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


ARGUMENTS : 


MODEL-NO 

EC-NO 

MODEL-NAME 
KEYWORD- FLAG 
DESC-FLAG 
RC-DEPKC-LIST 
DEPENT-FLAG 
MIGRATES -FLAG 
TO-EC-NAME 
HOLD-RC-INDEX 

INCLUDE  FILES: 


ERRCDM 

EOD 

RCDEPKC 

ERRPRO 

ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLAD1 

SQLFCH 

UERROR 

SELECNM 

SELACNM 

GENCNM1 

ADDPARM 

COPCKW 

GENDESC 

FNDRCEC 

ALLKEY 

ERRPRO 


DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X (30) ] 
DSPLY [9] 
DSPLY [9] 
RECRD 
DSPLY [9] 
DSPLY [ 9 ] 
DSPLY [X( 30) ] 
DSPLY [9999] 
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NAME:  DEPRELA 

PURPOSE:  DEPRELA:  DRIVER  MODULE  FOR  EACH  LEVEL  OF  RELATIONS  IN 
FROM-MODEL 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DEPRELA 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


MODEL-NO 

EC-NO 

MODEL-NAME 

KEYWORD-FLAG 

DESC-FLAG 

RC-DEPKC-LIST 

DEPENT-FLAG 

MIGRATES-FLAG 

TO-EC-NAME 


DSPLY[S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY [X ( 30)  ] 
DSPLY[9] 
DSPLY [9] 
RECRD 
DSPLY [9] 
DSPLY [9] 
DSPLY [X( 30) ] 


INCLUDE  FILES: 


ERRCDM 

EOD 

RCDEPKC 

ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

DEPREL1 

DEPREL 

ERRPRO 
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NAME:  DLMDAUC 

PURPOSE:  DELETE  ATTRIBUTE  USE  CLASSES  ASSOCIATED  WITH  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DLMDAUC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DELETES  THE  ATTRIBUTE  USE  CLASSES  FOR  A  GIVEN 
ENTITY . 


ARGUMENTS : 


EC-NO  DSPLY [S9 (9) ] 

ERROR-STATUS  DSPLY[S9(9)] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 


ROUTINES  CALLED: 


DELAUC 

SELECNM 

UERROR 

ERRPRO 
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NAME:  DOMUSAG 

PURPOSE:  DETERMINE  IF  DOMAIN  ASSOCIATED  WITH 
VIEWS , DATAFIELDS , ATTRIBUTES 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DOMUSAG 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DETERMINE  IF  A  DOMAIN  BEING  DROPPED  IS  CURRENTLY 
BEING  ASSOCIATED  WITH  ANY  DATA  FIELDS 
VIEWS  OR  ATTRIBUTE  CLASSES. 

SELECT  THE  DATA  TYPE  NAME,  QUALIFYING  ON 
THE  DOMAIN  NUMBER  WHICH  IS  THE  UNIQUE 
NUMBER  ASSIGNED  TO  THE  DOMAIN  CLASS  BEING 
DROPPED. 


ARGUMENTS : 


DOM-NO  DSPLY[S9 (9) ] 

RETURN-STATUS  DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 

ROUTINES  CALLED: 


VERDFDT 
VERDI DT 
ERRPRO 
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NAME:  DRPAC 

PURPOSE:  DELETE  OWNED  ATTRIBUTES  ASSOCIATED  WITH  ENTITY 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  DRPAC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DRPAC  CONTROLS  THE  PROCESSING  LOGIC  FOR  THE  DROP 
OWNED  ATTRIBUTE  CLAUSE  IN  THE  ALTER  ENTITY 
COMMAND.  THE  CLAUSE  IS  OPTIONAL.  WHEN 
SPECIFIED,  MAY  BE  A  LIST  OF  ATTRIBUTE  NAMES. 

PROCESSING  CONTINUES,  REGARDLESS  OF 
ERRORS,  UNTIL  THE  LIST  OF  ATTRIBUTE 
NAMES  IS  EXHAUSTED. 


ARGUMENTS : 


MODEL-NO 

EC-NO 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 


LISTNOS 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 

VERATT 

UERROR 

DELOAC 

CPFNXT 

ERRPRO 
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NAME:  DRPALG 

PURPOSE:  DELETE  A  COMPLEX  MAPPING  ALGORITHM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPALG 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DELETE  ALL  REFERENCES  OF  A  SOFTWARE  MODULE 
DEFINED  AS  A  COMPLEX  MAPPING  ALGORITHM. 

EXTRACT  FROM  THE  PARSER  LISTS  THE  MODULE  TO  BE 
DROPPED  ,  THE  MODULE  INSTANCE,  PREFERENCE  #, 
AND  WHETHER  THE  MODULE  WAS  SPECIFIED 

FOR  USE  ON  NDML  RETRIEVAL  OR  UPDATE  REQUESTS. 
VERIFY  THAT  THE  MODULE  IS  USED  AS  AN  ALG. 

THEN,  DELETE  THE  ALGORITHM  ,  AND  DELETE 
THE  MAPPING  IN  THE  CASE  OF  A  CS-IS 
COMPLEX  MAPPING  ALGORITHM. 


INCLUDE  FILES: 


LISTNOS 

ERRCDM 

TAGTBL 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 

LOWUPP 

CONVCPF 

UERROR 

VERA LG 

CMPTAGS 

DELCMP 

DLMTMAP 

DLDITAG 

DLTPRFA 

DRPECRT 

ECRTALL 

DRPRULE 

ERRPRO 
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NAME:  DRPALI 

PURPOSE:  DROP  THE  ALIAS  FOR  AN  ENTITY  OR  ATTRIBUTE. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPALI 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DROP  ALIAS  WILL  DROP  THE  ALIAS  FOR  AN  ENTITY 
OR  ATTRIBUTE. 

OBTAIN  OBJECT  ID,  OBJECT  TYPE  AND  ALIAS 
ID,  VERIFY  IF  THE  ALIAS  TO  BE  DROPPED  IS 
AN  ENTITY  OR  ATTRIBUTE,  THEN  CALL 
ROUTINES  TO  DELETE  THE  ALIASES.  CONTINUE 
PROCESSING  TILL  NO  MORE  RECORDS  TO  BE 
DELETED 


ARGUMENTS : 

MODEL-NO  DSPLY [S9 (9) ] 


INCLUDE  FILES: 


LISTNOS 


ROUTINES  CALLED: 


CPFONE 

LOWUPP 

VERENT 

UERROR 

VERATT 

GETECAL 

GETACAL 
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NAME:  DRPALTG 

PURPOSE:  SELECT  ALL  TAGS  MAPPED  FOR  AN  ENTITY  AND  PREFERENCE 
TO  BE  DROPPED 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPALTG 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Select  all  tags  belonging  to  an  entity  that 
have  been  mapped  (auc_is_mapping)  for  a  given 
preference.  For  each  one  call  drpltag  to  delete 
the  mapping  for  the  tag. 

MODIFCATION  HISTORY:  6/10/87 

MODIFIED  TO  DELETE  ALL  ENTITY  TO  RECORD  MAPPINGS 
AND  THE  DISTRIBUTED  RULES  FOR  THE  ENTITY  OF  THE 
MAPPED  TAGS  DELETED. 

11/23/87  ADDED  CHECK  TO  NDML-COUNT  AND  PUT  OUT  WARNING  IF 

NO  TAGS  WERE  FOUND  TO  DROP. 


ARGUMENTS : 


EC-NO  DSPLY[S9 (9) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


DELMTAG 

DRPECRT 

ECRTALL 

DRPRULE 

UERROR 

UWARN 

ERRPRO 
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NAME:  DRPARMS 

PURPOSE:  VERIFY  AND  DELETE  MODULE  PARAMETERS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPARMS 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  VERIFY  THAT  THE  PARAMETERS  EXIST  FOR  MOD-ID 
THEN  DELETE  THEM 


ARGUMENTS : 


MOD-ID  DSPLY[X(10) ] 

PARM-NAME  DSPLY [ X ( 3  0 ) ] 


INCLUDE  FILES: 


ERRCDM 

LISTNOS 


ROUTINES  CALLED: 


VERAPRM 

UERROR 

DELAPRM 

CPFNXT 
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NAME:  DRPATT 

PURPOSE:  CONTROLS  THE  DROPPING  OF  USER  SPECIFIED  ATTRIBUTE 
CLASSES  FROM  THE  C 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPATT 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THE  DROP  ATTRIBUTE  CLASS  COMMAND  PROCESSOR 
CONTROLS  THE  DROPPING  OF  USER  SPECIFIED 
ATTRIBUTE  CLASSES  FROM  THE  CDM. 


ARGUMENTS : 

MODEL-NO  DSPLY[S9 (9) ] 


INCLUDE  FILES: 


UNIQENO 

LISTNOS 

ERRPRO 


ROUTINES  CALLED: 


CPFONE 

DELMTKC 

VERATT 

DELOAC 

DELAC 

DELACNM 

DELACKW 

DELTEXT 

ADDRNUM 

UERROR 

CPFNXT 

ERRPRO 
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NAME:  DRPCAT 

PURPOSE:  CONTROLS  THE  PROCESSING  LOGIC  FOR  THE  "DROP  CATEGORY" 
COMMAND. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPCAT 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DRPCAT  CONTROLS  THE  PROCESSING  LOGIC  FOR  THE 
"DROP  CATEGORY"  COMMAND. 


DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


LISTNOS 

UNIQENO 


ARGUMENTS : 


MODEL-NO 

RTN-STATUS 


ROUTINES  CALLED: 


CPFONE 

CPFNXT 

VERENT 

UERROR 

VERCR 

VERRCB 

VERROJ 

VERRCC 

UWARN 

DRPMGRC 

DELCPRC 

DELCM 

DELCR 

DELRC 

DELRCKW 

DELTEXT 

ADDRNUM 

DELMTKC 
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NAME !  DRPCRE 

PURPOSE:  DROP  A  CATEGORY  RELATION  FOR  AN  ENTITY  BEING  DROPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPCRE 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DRPCRE  WILL  DROP  A  CATEGORY  RELATION  BASED  ON  AN 
ENTITY  CLASS  NUMBER  THAT  IS  TO  BE  DELETED. 

ADDITIONALLY  THIS  ROUTINE  WILL  DELETE  ALL  TEXTUAL 
DESCRITPTIONS  ASSOCIATED  WITH  THE  RELATION  AND 
ADD  THE  RELATION-CLASS  NUMBER  BACK  INTO  THE  CDM' 
FOR  REUSE. 


DSPLY[S9 (9) ] 
DSPLY[S9(9) ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 

ROUTINES  CALLED: 


VERRCB 

UERROR 

DELCRIP 

DELCM 

DELCR 

DELRC 

ADDRNUM 

DELTEXT 

DELRCKW 

DELCM1 

SELCATM 

ERRPRO 


ARGUMENTS : 


EC-NO 

RETURN-STATUS 
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NAME:  DR PORE 1 

PURPOSE:  DROP  A  CATEGORY  RELATION  FOR  AN  ENTITY  BEING  DROPPED 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  DRPCRE1 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DRPCRE1  WILL  DROP  A  CATEGORY  RELATION  BASED  ON  AN 
ENTITY  CLASS  NUMBER  THAT  IS  TO  BE  DELETED. 

ADDITIONALLY  THIS  ROUTINE  WILL  DELETE  ALL  TEXTUAL 
DESCRIPTIONS  ASSOCIATED  WITH  THE  RELATION  AND 
ADD  THE  RELATION-CLASS  NUMBER  BACK  INTO  THE  CDM' 
FOR  REUSE. 


DSPLY[S9(9) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 

ROUTINES  CALLED: 


VERRCB 

UERROR 

VERRCC 

DRPMGRC 

DELCPRC 

DELCM 

DELCR 

DELRC 

ADDRNUM 

DELTEXT 

DELRCKW 

ERRPRO 


ARGUMENTS : 


EC-NO 

RETURN-STATUS 
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NAME:  DRPDB 

PURPOSE:  CONTROLS  THE  PROCESSING  LOGIC  FOR  DELETING  THE  DATA 
BASE  • 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPDB 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THIS  ROUTINE  CONTROLS  THE  PROCESSING  LOGIC  FOR  DELETING  THE 
DATA  BASE  FROM  THE  SYSTEM  AND  ALL  ENTITIES  ASSOCIATED  WITH 
THE  DATA  BASE.  DB  FROM  SCHEMA-NAMES,  DB  FROM  RECORD-TYPES, 

DB  FROM  DB-AREA-ASSIGNMENT,  DB  FROM  DATA-FIELD,  DB  FROM 
RECORD-SET,  DB  FROM  RECORD  SET-TYPE -MEMBERS ,  DB  FROM 
DATA-BASE-AREA,  DB  FROM  DF-SET-LINKAGE. 

ADDITIONALY  ALL  TEXTUAL  DESCRIPTIONS  ARE  DELETED  FOR  THE 
DATA  BASE  AND  ASSOCIATED  OBJECTS:  SET,  RECORDS,  AND  DATA  FIELDS 
EACH  OBJECT  BEING  DELETED  WILL  HAVE  THEIR  UNIQUE  OBJECT 
NUMBERS  RETRUNED  TO  THE  CDM  FOR  REUSE. 

THE  IS-CS  MAPPINGS  ARE  NOT  DELETED.  IF  ANY  INTERNAL 
OBJECTS  ARE  MAPPED  THE  DATA  BASE  IS  NOT  DROPPED. 

AFTER  EXTRACTING  THE  DBMS  NAME,  DATA  BASE  NAME  AND  HOST 
NAME  FROM  THE  PARSER  LISTS,  VERIFY  THAT  THE  DATA  BASE 
INFORMATION  IS  CORRECT,  AND  THEN  DELETE  THE  DATA  BASE  FROM 
THE  ASSOCIATED  ENTITIES. 

ASSOCIATED  WITH  THE  SETS,  AND 

ADD  THE  SET-NO  BACK  TO  THE  CDM  FOR  REUSE. 

DELDBST  IS  A  PRC  (NDML)  ROUTINE. 

INCLUDE  FILES: 


LISTNOS 

UNIQENO 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 

LOWUPP 

VERDBAS 

UERROR 

VERAIMD 

VERERMD 

VERDBRL 

VERDUNI 

VERRPS 

DELDBS1 

DELPSWD 

DELSN1 

DELDBRT 

DELDAA1 

DELDBDF 
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DELDBST 

DELSTM1 

DELDBA1 

DELDSL1 

DELPCB 

DELTEXT 

ADDRNUM 

ERRPRO 


DOCGROUP  PS41100  Module  Documentation 
NAME:  DRPDBMS 

PURPOSE:  DROPS  DBMS_NAME , DBMS_MODEL  FROM  DBMS  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPDBMS 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  SETS  UP  AND  CALLS  DELDBMS  TO  DELETE 
THE  DBMS_NAME  AND  DB_MODEL  FROM  THE  DBMS 
TABLE.  FIRST  IT  CALLS  VERDBMS  TO  SEE 
IF  DBMS  IS  ON  TABLE.  IF  SO  IT  CALLS 
DELDBMS  TO  DELETE  IT. 

INCLUDE  FILES: 


ERRCDM 

LISTNOS 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 

VERDBMS 

UERROR 

DELDBMS 

CPFNXT 

ERRPRO 
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NAME:  DRPDFMP 

PURPOSE:  DELETES  FROM  PROJECT_DATA  FIELD  FOR  A  TAG  AND 
PREFERENCE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPDFMP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WAS  UPDATED  6/10/87  TO  DELETE 
FROM  PROJECT_DATA_FIELD  FOR  A  GIVEN  TAG  AND 
PREFERENCE  NUMBER  AND  WHERE  THE  KEY  OF 
AUC_IS_MAPPING  MATCHES  THE  CORRESPONDING 
ATTRIBUTES  IN  PROJECT_DATA_FIELD . 

8/4/87  -  RICHARD  E.  STEWART  -  MODIFIED  TO  ADD  CALLS  CHECKING 
FOR  PRECOMPILED  MODULES  EXISTING  AGAINST 
DATA  BASES . 

2/5/88  -  RICHARD  E.  STEWART  -  REMOVED  PREVIOUS  MODIFICATION. 


ARGUMENTS : 


TAG-NO 

PREF-NO 

DB-ID 

RT-ID 

USAGE-COUNT 

RET-STATUS 


DSPLY [S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X ( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


SELDBNM 

DEL1PDF 

UERROR 

ERRPRO 
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NAME:  DRPDIV 

PURPOSE:  DELETE  DATA  ITEM  DESCRIPTION  TEXTS  ASSOCIATED  WITH 
VIEW 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPDIV 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

EXTS  ASSOCIATED  WITH  VIEW 


DESCRIPTION  : - 

This  routine  will  given  a  view  number  select  all 
data  items  associated  with  the  view,  delete  all 
textula  descriptions  of  the  data  items  and 
send  the  cdm  the  deleted  data  item  numbers  for 
reuse . 


ARGUMENTS : 


VIEW-NO  DSPLY [ S9 ( 9 ) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

UNIQENO 

ERRPRO 

ROUTINES  CALLED: 


VERDI PA 
UERROR 
DELTEXT 
ERRPRO 
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NAME:  DRPDOM 

PURPOSE:  DELETE  THE  DOMAIN  FROM  THE  CDM  DATABASE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPDOM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THE  DROP  DOMAIN  COMMAND  OBTAINS  THE  DOMAINS  TO  BE 

DROPPED,  AND  DELETES  THE  DOMAIN  CLASS  AND  ALL 
ASSOCIATED  DATA  TYPES. 

MODIFIED  8/10/89  THE  CODE  THAT  SUPPORTED  THE  VERIFICATION 
MODULE  WAS  REMOVED. 

OBTAIN  DOMAIN  NAMES  FROM  PARSER  AND 

VERIFY  THA  THE  DOMAIN  TO  BE  DELETED  DOES 
EXIST.  THEN  CHECK  THE  DOMAIN  USAGE,  IF 
NOT  BEING  USED  BY  OTHERS,  DELETE  THE  DATA 
TYPES  AND  THE  DOMAIN.  CONTINUE 
PROCESSING  TILL  NO  MORE  DOMAINS  REMAIN  TO 
BE  DELETED. 


INCLUDE  FILES: 


CHKCDM 

LISTNOS 

UNIQENO 

ROUTINES  CALLED: 


CPFONE 

VERDOM 

UERROR 

VERACDT 

DOMUSAG 

DRPVALA 

DRPRNGA 

DELDTNO 

DELDTD 

DELDOM 

ADDRNUM 

DELTEXT 

CPFNXT 
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NAME:  DRPDSCT 

PURPOSE:  DROP  DESCRIPTION  TYPE  IF  NO  USAGE  EXISTS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPDSCT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


YPE  IF  NO  USAGE  EXISTS 

DESCRIPTION  :  -  DROP  DESCRIPTION  TYPE  IF  NO  OTHER  USAGE 
EXISTS  IN  THE  CDM.  CALLS  "VERDSCT"  TO 
VERIFY  THAT  DESCRIPTION  TYPE  EXISTS,  THEN 
CALL  "DELDSCT"  TO  DELETE  DESCRIPTION  TYPE 

YPES  TO  BE  DELETED. 

YPE  TO  UPPER  CASE 
YPE  EXISTS  ON  THE  CDM 
YPE  FROM  CDM 
YPE 


INCLUDE  FILES: 


ERRCDM 

LISTNOS 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 

LOWUPP 

VERDSCT 

UERROR 

DELDSCT 

CPFNXT 

ERRPRO 
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NAME:  DRPDT 

PURPOSE:  DROP  A  DATA  TYPE  WITHIN  A  DOMAIN. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  DRPDT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  CLAUSE  WILL  DROP  A  DATA  TYPE  WITHIN  A 
DOMAIN  AFTER  VERIFYING  THAT  A  DATA  TYPE 
DOES  EXIST 

OBTAIN  DATA-TYPE-NAMES  FROM  THE  PARSER 
LISTS,  THEN  VERIFY  THAT  THE  DATA-TYPE- 
NAME  DOES  EXIST  IF  IT  DOES,  MAKE  SURE  IT 
IS  NOT  USED  BY  OTHERS,  AND  THEN  DELETE  IT 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 


INCLUDE  FILES: 


UNIQENO 


ARGUMENTS : 


DOM-NO 

DATA-TYPE-NAME 


ROUTINES  CALLED: 


VERDTD 

UERROR 

DTUSAGE 

VERMPDT 

DELDT 

RETDT 

DELTEXT 

ADDRNUM 
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NAME:  DRPECRT 

PURPOSE:  DELETES  ALL  ENTITY  TO  RECORD  MAPPINGS  FOR  AN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPECRT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECTS  ALL  ENTITY  TO  RECORD  MAPPINGS  FROM 
EC_RT_MAPPING  FOR  A  GIVEN  EC_NO.  FOR 
EACH  ROW  RETURNED  DELETES  THE  ENTITY  TO 
RECORD  MAPPING  BY  CALLING  " DELIERT”  WITH 
THE  GIVEN  EC  NO  AND  THE  RETRIEVED  RT  NO. 


ARGUMENTS : 


EC-NO  DSPLY [S9 (9) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


DELROJE 

UERROR 

DEL1ERT 

ERRPRO 
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NAME:  DRPENT 

PURPOSE:  CONTROL  THE  PROCESSING  LOGIC  FOR  DELETING  ENTITIES. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPENT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THE  DROP  ENTITY  COMMAND  PROCESSOR  WILL  CONTROL  THE 
THE  PROCESSING  LOGIC  FOR  DELETING  ENTITIES  AND 
THEIR  ASSOCIATED  NAMES,  KEYWORDS,  DESCRIPTIONS, 
OWNED  ATTRIBUTE,  ATTRIBUTE  USE  CLASSES  AND 
RELATION  CLASSES 

MODIFIED  5/2/89:  TO  HANDLE  CATEGORY  RELATIONS 
ARGUMENTS : 


MODEL-NO  DSPLY [ S9 ( 9 ) ] 

INCLUDE  FILES: 


UNIQENO 

LISTNOS 

ROUTINES  CALLED: 


CPFONE 

DELMTKC 

VERENT 

UERROR 

VERECR 

SELHP 

FNDOAC 

FNDAUC 

DELMDKC 

DRPRCE 

DRPCRE 

DELECNM 

DELECKW 

DELECON 

DELEC 

ADDRNUM 

DELTEXT 

CPFNXT 
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NAME:  DRPFLD 

PURPOSE:  CONTROLS  THE  PROCESSING  LOGIC  FOR  DROPPING  A  DATA 
FIELD • 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPFLD 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  CONTROLS  THE  PROCESSING  LOGIC  FOR  DROPPING  A 
DATA  FIELD  FROM  THE  DATA  BASE. 

THIS  ROUTINE  IS  ALSO  CALLED  BY 
ALTER  RECORD. . .DROP  FIELD 

VERIFY  THAT  THE  DATABASE,  RECORD  AND  FIELDS  TO 
BE  DROPPED  EXIST. 

DROP  THE  FIELD  AND  ALL  OF  ITS  SUBCOMPONENTS. 

IF  THE  FIELD  BEING  DROPPED  IS  USED  AS  AN 
INDEX  OR  OCCURS  DEPENDING  BY  ANOTHER  FIELD, 

THE  LATTERS  INDEXED  BY  OR  OCCURS  DEPENDING 
IS  SET  TO  NULL. 

IF  THE  FIELD  BEING  DROPPED  IS  INDEXED, 

DROP  THE  INDEXING  FIELD  TOO. 

IF  THE  FIELD  BEING  DROPPED  IS  REDEFINED  BY 
ANOTHER  FIELD,  THE  LATTER  IS  DROPPED  ALONG 
WITH  ITS  SUBCOMPONENT  FIELDS. 

DELETE  ALL  TEXTUAL  DESCRIPTION  OF  EACH  FIELD 
BEING  DROPPED. 

INCLUDE  FILES: 


ERRCDM 

UNIQENO 

LISTNOS 

DFTBL 

TDFTBL 

ERRPRO 

ROUTINES  CALLED: 


DELFLDS 

CPFONE 

UERROR 

VERDBAS 

RETRFLD 

CPFNXT 

SELFLDS 

MODYFLD 

ERRPRO 
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NAME:  DRPHST 

PURPOSE:  DROPS  HOST_ID,  HOST_NO  FROM  HOST  TABLE. 

OBJECT  NUMBER 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPHST 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SETS  UP  AND  CALLS  DELHST  TO  DELETE 
THE  HOST_ID  AND  HOST_NO  FROM  THE  HOST 
TABLE.  FIRST  IT  CALLS  VERHST  TO  SEE 
IF  HOST  IS  ON  TABLE.  IF  SO  IT  CALLS 
DELHST  TO  DELETE  IT  AND  THEN  CALLS 
ADDRNUM  TO  RETURN  THE  OBJECT  NUMBER 
(HOST-NO  IN  THIS  CASE) . 


INCLUDE  FILES: 


ERRCDM 

LISTNOS 

UNIQENO 

ERRPRO 


ROUTINES  CALLED: 


CPFONE 

VERHST 

UERROR 

DELHST 

ADDRNUM 

CPFNXT 

ERRPRO 


RETURNS 


I 
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NAME:  DRPKC 

PURPOSE:  CONTROLS  THE  PROCESSING  LOGIC  FOR  THE  "DROP  KEY 
CLASS  " . 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  DRPKC 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CONTROLS  THE  PROCESSING  LOGIC  FOR  THE  "DROP  KEY 
CLASS"  CLAUSE  IN  THE  ALTER  ENTITY  COMMAND.  THE 
CLAUSE  CONSISTS  OF  A  LIST  OF  ONE  OR  MORE  KEY 
CLASS  NAMES. 

MODIFIED  6/21/89:  TO  NOT  ALLOW  DROPING  OF  PRIMARY  KEY  INVOLVED 
IN 

A  CATEGORY  RELATION 


ARGUMENTS : 

EC-NO  DSPLY[S9 (9) ] 


INCLUDE  FILES: 


LISTNOS 

UNIQENO 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 

VERKC 

UERROR 

VERKCT1 

CHKCAT 

VERCRC 

DRPMGKM 

DELKCM 

DELCMPR 

DELKC 

ADDRNUM 

CPFNXT 

ERRPRO 
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NAME:  DRPKW 

PURPOSE:  DROP  A  KEYWORD  ASSOCIATION  FROM  EITHER  AN 
ATTRIBUTE, ENTITY  OR  RELATI 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPKW 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DROP  KEYWORD  CLAUSE  WILL  DROP  A  KEYWORD 
ASSOCIATION  FROM  EITHER  AN  ATTRIBUTE,  ENTITY 
OR  RELATION  CLASS.  THIS  CLAUSE  IS  CALLED  FROM 
THE  ALTER  ENTITY,  ATTRIBUTE  AND  RELATION  COMMANDS 


ARGUMENTS : 


OBJ-TYPE 

OBJ-ID 

RTN-STATUS 


RECRD 

DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 
LISTNOS 


ROUTINES  CALLED: 


CPFONE 

LOWUPP 

VERKW 

UERROR 

DELKWAC 

DELKWEC 

DELKWRC 

CPFNXT 
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NAME:  DRPKWC 

PURPOSE:  OBTAIN  THE  USED  IDENTIFIED  KEYWORD,  THEN  DROP  THEIR 
ASSOCIATIONS . 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPKWC 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


OBTAIN  THE  USED  IDENTIFIED  KEYWORD,  THEN 
DROP  THEIR  ASSOCIATIONS  WITH  ATTRIBUTE  CLASS, 
ENTITIES  AND  RELATIONS  AND  THEN  DROP  THE 
KEYWORD. 

FOR  EACH  KEYWORD  OBTAINED,  VERIFY 
THAT  THE  KEYWORD  DOES  EXIST,  THEN 
DELETE  THE  ITS  ASSOCIATION  WITH 
ATTRIBUTES,  ENTITIES,  RELATION  CLASS, 

AND  FINALLY  THE  KEYWORD  ITSELF.  THE 
ADD  THE  KEYWORD  NUMBER  BACK  TO  THE 
REUSABLE  POOL  OF  KEYWORD  NUMBERS. 


INCLUDE  FILES: 


LISTNOS 

UNIQENO 


ROUTINES  CALLED: 


CPFONE 

VERKW 

U ERROR 

DELKWAC 

DELKWEC 

DELKWRC 

DELKW 

DELTEXT 

ADDRNUM 

CPFNXT 
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NAME:  DRPMAP 

PURPOSE:  DRIVER  ROUTINE  TO  DROP  MAPPINGS:  PROGRAM  NAME  DRPMAP 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPMAP 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DRPMAP  IS  THE  COMMAND  PROCESSOR  FOR  THE 
DROP  MAP  COMMAND.  AFTER  VERIFYING  THE  MAP 
NAME,  SUBPROGRAMS  ARE  CALLED  TO  REMOVE  THE 
MAPPING  PREFERENCE  FROM  THE  CDM.  IF  USER 
SPECIFIES  PREFERENCE  ONE,  ALL  MAPPINGS 
WILL  BE  DROPPED. 

MODIFIED  6/08/87:  MODIFIED  TO  HANDLE  REDUNDANT  DATA  PROBLEMS 
4/28/89:  TO  HANDLE  BOTH  CATEGORY  AND  LINK  RELATIONS 
5/26/89:  MODIFIED  TO  DELETE  A  ROJ  MAPPING 


INCLUDE  FILES: 


ERRCDM 

LISTNOS 

ERRPRO 


ROUTINES  CALLED: 


CPFONE 

VERENT 

UERROR 

CPFNXT 

VERCR 

CONVCPF 

DRPALTG 

VERLR 

VERROJ 

VERRCST 

DELRCST 

VERAUC 

VERAISM 

DRPPRF1 

DRPSPRF 

DELROJ 

ERRPRO 
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NAME:  DRPMGKM 

PURPOSE:  DELETE  MIGRATED  KEY  CLASSES  ASSOCIATED  WITH  A  KEY 
CLASS 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPMGKM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GIVEN  A  KEY  CLASS,  DELETE  ALL  ITS  MIGRATING  KEY 
CLASS  MEMBERS. 

EXECUTE  AN  NDML  SELECT  STATEMENT  TO 
RETRIEVE  ALL  THE  KEY  CLASS  MEMBERS  FOR 
THIS  KEY  CLASS  BY  TAG  NO.  FOR  EACH  KEY 
CLASS  MEMBER  RETRIEVED,  DELETE  THE  KEY 
CLASS  MEMBER  AND  ITS  MIGRATIONS;  I.E. 

ATTRIBUTE  USE  CLASS  AND  INHERITED 
ATTRIBUTE  USE  CLASS. 


DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 

INCLUDE  FILES: 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ARGUMENTS : 


KC-NO 

RETURN-STATUS 


DELMIGK 

UERROR 

ERRFRO 
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NAME:  DRPMGRC 

PURPOSE:  DELETE  MIGRATED  KEY  CLASS  MEMBERS  ASSOCIATED  WITH  A 
irpv  PTJ1CC 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  DRPMGRC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GIVEN  A  KEY  CLASS  AND  A  RELATION  CLASS,  DELETE 

ALL  OF  THE  MIGRATING  KEY  CLASS  MEMBERS  THRU  THIS 
RELATION  CLASS. 

EXECUTE  AN  NDML  SELECT  STATEMENT  TO 
RETRIEVE  ALL  THE  KEY  CLASS  MEMBERS  FOR 
THIS  KEY  CLASS  BY  TAG  NO.  FOR  EACH  KEY 
CLASS  MEMBER  RETRIEVED,  DELETE  THE  KEY 
CLASS  MEMBER  AND  ITS  MIGRATIONS;  I.E. 

ATTRIBUTE  USE  CLASS  AND  INHERITED 
ATTRIBUTE  USE  CLASS. 


ARGUMENTS : 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 ( 9 ) ] 


INCLUDE  FILES: 


KC-NO 

RC-NO 

RETURN-STATUS 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


DLMIGRC 

UERROR 

ERRPRC 


3-665 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  DRPMIG 

PURPOSE:  CONTROLS  THE  PROCESSING  LOGIC  FOR  THE  "DROP  MIGRATES" 
CLAUSE • 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPMIG 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CONTROLS  THE  PROCESSING  LOGIC  FOR  THE  "DROP 
MIGRATES"  CLAUSE.  THE  CLASUE  IS  OPTIONAL. 

WHEN  SPECIFIED,  CONSISTS  OF  A  KEY-CLAUSE-NAME. 


ARGUMENTS : 


MODEL-NO 

RC-NO 

IND-EC-NO 


DSPLY[S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


LISTNOS 


ROUTINES  CALLED: 


CPFONE 

VERKC 

UERROR 

VERRCC 

DRPMGRC 

DELCPRC 
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NAME:  DRPMOD 

PURPOSE:  CONTROLS  THE  PROCESSING  LOGIC  TO  DROP  A  MODEL. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPMOD 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  CONTROLS  THE  PROCESSING  LOGIC  TO  DROP  A  MODEL 
-  IE  ENTITIES ,  ATTRIBUTES,  KEYWORDS,  RELATIONS,  VIEWS,  ETC. 


ARGUMENTS : 

MODEL-NO  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


LISTNOS 

UNIQENO 

ERRFRO 


ROUTINES  CALLED: 


CPFONE 

UERROR 

VERMOD 

DELMOD 

DELTEXT 

FNDECM 

FNDACM 

ADDRNUM 

UWARN 

ERRPRO 
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NAME :  DRPPART 

PURPOSE:  DROPS  USER  ENTERED  PARTITION  NUMBER  FROM  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPPART 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CALLS  "HPNLOOK"  TO  VERIFY  ENTITY  AND 
PARTITION,  THEN  CALLS  "DELHPNA"  TO  DROP 
PARTITION. 


INCLUDE  FILES: 


ERRCDM 

LISTNOS 

ERRPRO 


ROUTINES  CALLED: 


HPNLOOK 

UERROR 

DELHPNA 

ERRPRO 
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NAME:  DRPPRF1 

PURPOSE:  SELECT  MAP  TYPES  FOR  A  SPECIFIC  TAG  AND  DROP  IF  NOT 
COMPLEX 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPPRF1 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  THE  MAP  TYPE  FOR  A  SPECIFIC  ENTITY  AND  TAG 
NUMBER  AND  IF  NOT  A  COMPLEX  MAPPING,  DELETE  THE 
OCCURENCE  OF  THE  MAPPING. 


ARGUMENTS : 


TAG-NO 

EC-NO 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY[X(5) ] 


ROUTINES  CALLLO: 


DELMTAG 

DRPECRT 

ECRTALL 

DRPRULE 

UERROR 

ERRPRO 


3-669 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  DRPPSB 

PURPOSE:  PROGRAM  NAME  DRPPSB 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPPSB 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

-  DROP  A  PSB  NAME  FROM  THE  PSB  TABLE 


INCLUDE  FILES: 


ERRCDM 

LISTNOS 

ERRPRO 


ROUTINES  CALLED: 


CPFONE 

VERPSB 

UERROR 

DELPSB 

CPFNXT 

ERRPRO 
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NAME :  DRPRCE 

PURPOSE:  DROP  A  RELATION  CLASS  FOR  AN  ENTITY  BEING  DROPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPRCE 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DRPRCE  WILL  DROP  A  RELATION  CLASS  BASED  ON  AN 
ENTITY  CLASS  NUMBER  THAT  IS  TO  BE  DELETED. 

ADDITIONALLY  THIS  ROUTINE  WILL  DELETE  ALL  TEXTUAL 
DESCRIPTIONS  ASSOCIATED  WITH  THE  RELATION  AND 
ADD  THE  RELATION-CLASS  NUMBER  BACK  INTO  THE  CDM' 

FOR  REUSE. 

MODIFIED  5/2/89:  TO  HANDLE  NEW  RELATION_CLASS  DEFINITION  AND 
LINK  RELATION 


ARGUMENTS : 


EC-NO  DSPLY [S9 (9) ] 

RETURN-STATUS  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 

ROUTINES  CALLED: 


VERRCB 

UERROR 

DELLR 

DELRC 

ADDRNUM 

DELTEXT 

DELRCKW 

ERRPRO 
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NAME:  DRPREC 

PURPOSE:  CONTROLS  THE  PROCESSING  LOGIC  FOR  THE  DROP  RECORD 
COMMAND. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPREC 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DELETE  THE  RECORD ,  ALL  ITS  FIELDS,  AND  ANY 
SETS  BELONGING  TO  THE  RECORD. 

NO  MAPPINGS  ARE  DELETED. 

THE  RECORDS,  FIELDS  AND  SETS  ARE  NOT  DROPPED 
IF  MAPPINGS  ARE  ASSOCIATED. 

ALSO,  DELETE  THE  TEXTUAL  DESCRIPTION  AND 
ADD  THE  OBJECT  NUMBERS  TO  THE  REUSABLE  POOL, 
modified:  sandy  singh,  sep  21,  1988 

to  prevent  dropping  a  record  if  an  ec-rt  mapping  exists 
modified:  sparks,  Oct  26,  1989 

to  prevent  dropping  a  record  if  a  ROJ  mapping  exists 
AND  ADD  THE  SET 

NUMBER  TO  THE  REUSABLE  POOL. 

THE  SET  IS  DELETED  ONLY  IF  NOT  MAPPED 


INCLUDE  FILES: 


LISTNOS 

UNIQENO 

ROUTINES  CALLED: 


GETDRT 

UERROR 

DELDAA2 

DELTEXT 

ADDRNUM 

DELDFL2 

DELRTY2 

SELRSET 

SELSTM 

DELDSL2 

ECRTCHK 

VERROJR 

VERAIM 

SELURT 

VERHORZ 
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NAME:  DRPREL 

PURPOSE:  CONTROLS  THE  PROCESSING  LOGIC  FOR  THE  " DROP  RELATION” 
COMMAND. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPREL 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


DRPREL  CONTROLS  THE  PROCESSING  LOGIC  FOR  THE 
"DROP  RELATION"  COMMAND. 

MODIFIED:  23-FEB-87 

RELEASE:  2.3 

CHANGES:  DROPPED  THE  CALL  TO  'VERSRC'  WHICH  VERIFIED  AGAINST 

THE 

TABLE  VI EW_RC_COMPONENT  WHICH  WAS  ELIMINATED  FOR  THE 
UPGRADING  OF  THE  VIEW  COMMANDS. 

MODIFIED:  25-APR-89 

DROPPED  TO  CALL  TO  'VERREL'  AND  ADDED  IT  BACK  IN  ITS  PARTS 
AND  ADDED  A  NEW  DELETE  PROCEDURE  —  ALL  BECAUSE  OF  CATEGORY 
AND  LINK  RELATION  TYPES. 

ARGUMENTS: 


MODEL-NO  DSPLY [ S9 ( 9 ) ] 

INCLUDE  FILES: 


LISTNOS 

UNIQENO 

ROUTINES  CALLED: 


CPFONE 

CPFNXT 

VERENT 

UERROR 

VERLR 

VERRCB 

VERROJ 

VERRCC 

UWARN 

DRPMGRC 

DELCPRC 

DELLR 

DELRC 

DELRCKW 

DELTEXT 

ADDRNUM 

DEI21TKC 
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NAME:  DRPRNG 

PURPOSE:  DROP  THE  RANGE  VALUES  FOR  A  GIVEN  DOMAIN 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPRNG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DELETE  A  SPECIFIC  RANGE  FROM  DOMAIN_RANGE  TABLE 
ASSOCIATED  WITH  A  SPECIFIC  DOMAIN  NUMBER 


ARGUMENTS : 


DOM-NO 

DOM-RANGE 

RET-STATUS 


DSPLY[S9 (9) ] 
RECRD 

DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DRPRULE 

PURPOSE:  DELETES  THE  DISTRIBUTED  RULES  FOR  AN  ENTITY 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  DRPRULE 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  DELETES  THE  DISTRIBUTED  RULES  FOR 
A  SPECIFIED  ENTITY. 


ARGUMENTS : 


EC-NO  DSPLY [S9 (9) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 
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NAME:  DRPSET 

PURPOSE:  CONTROLS  THE  PROCESSING  LOGIC  FOR  DELETING  A  SET  FROM 
THE  DATABASE. 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  DRPSET 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  CONTROLS  THE  PROCESSING  LOGIC  FOR  DELETING  A  SET 
FROM  THE  DATABASE. 

THIS  ROUTINE  FETCHES  INFORMATION  REGARDING  THE  DATA  BASE  AND 
THE  SET  TO  BE  DROPPED.  AFTER  VERIFYING  THAT  THE  SET  DOES 
EXIST,  IT  IS  DELETED  FROM  THE  DATA  BASE. 

THE  SET  IS  NOT  DROPPED  IF  THERE  IS  AN 
ASSOCIATED  MAPPING  TO  A  TAG  OR  RELATION. 


INCLUDE  FILES: 


UNIQENO 

LISTNOS 

ERRPRO 


ROUTINES  CALLED: 


CPFONE 

VERDBAS 

UERROR 

VERRSET 

VERRSUS 

VERRCBS 

FNDASA 

DELRST2 

DELSTM2 

DLDSL2 

ADDRNUM 

DELTEXT 

ERRPRO 
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NAME:  DRPSMAP 

PURPOSE:  PROGRAM  NAME  DRPSMAP 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPSMAP 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  CALLED  FROM  ALTMAP,  THIS  PROGRAM  CALLS 
SUBPROGRAMS  WHICH  ALLOW  DATA  FIELDS  TO  BE 
DROPPED  FOR  THE  SAME  PREFERENCE  ONLY  IF  THE 
ENTITY  IS  HORIZONTALLY  PARTITIONED.  IT  ALSO 
ALLOWS  SET  VALUE  MAPPINGS  TO  BE  DROPPED 
FOR  THE  SAME  PREFERENCE. 

ARGUMENTS : 


RC-AUC-MAP 

TAG-NO 

RC-NO 

PREF-NO 

HZ -PART-FLAG 

EC-NO 

INCLUDE  FILES: 


ERRCDM 

LISTNOS 

ERRPRO 

ROUTINES  CALLED: 


CPFNXT 

LOWUPP 

CPFVAL 

CHKSTMP 

VERAPDF 

VERDB 

VERSMS 

DEL1ASM 

VERDFID 

DEL1PDF 

VERRT 

UERROR 

DEL1AIM 

ECRTALL 

VERECRT 

ALT1ERT 

CPFCOR 

FNDRCM 

DELIRCS 

ERRPRO 


DSPLY [ X ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X] 
DSPLY [S9 (9) ] 
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NAME !  DRPSHOD 

PURPOSE:  DROP  SOFTWARE  MODULE  FROM  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPSMOD 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETE  SOFTWARE  MODULE  ALONG  WITH 
ASSOCIATED  MODULE  PARAMETERS  FROM  THE  CDM. 


INCLUDE  FILES: 


FLDELST 

ERRCDM 

LISTNOS 


ROUTINES  CALLED: 


CPFONE 

VERSMOD 

UERROR 

DELPARM 

DELSMOD 

CPFNXT 

CDNMOD 

CDRPXRF 

CDRPESU 

CDDGAP 

UWARN 
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NAME:  DRPSPRF 

PURPOSE:  WILL  DROP  A  SINGLE  MAPPING  PREFERENCE  FOR  TAG 
MAPPINGS 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPSPRF 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  DROP  MAP,  THIS  PROGRAM  WILL 
DROP  A  SINGLE  MAPPING  PREFERENCE  FOR  AN 
AUC  TO  DATA  FIELD  OR  AUC  TO  SET  MAPPING. 

MODIFIED:  6/10/87 

:-  MODIFIED  TO  INCLUDE  THE  NEW  PARAMTERS  EC-NO 
AND  RET-STATUS.  ALSO,  CHANGED  THE  CALL  FROM 
DEL1AIM  TO  A  THE  SUBROUTINE  SELAIMP,  THAT  WILL 
DELETE  ALL  THE  AUC  MAPPINGS  FOR  A  SPECIFIC 
PREFERENCE  NUMBER. 


ARGUMENTS : 


TAG-NO 

PREF-NO 

MAP-TYPE 

EC-NO 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY [ S9 (9 ) ] 
DSPLY [X( 10)  ] 
DSPLY [S9 (9)  ] 
DSPLY [X (5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


SELAIMP 

ECRTALL 

DRPRULE 

DRPDFMP 

DRPSTMP 

UERROR 

ERRPRO 
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NAME:  DRPSTMP 

PURPOSE:  DELETES  SET  MAPPING  FOR  A  GIVEN  TAG  AND  PREFERENCE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPSTMP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETES  FROM  AUC_ST_MAPPING  FOR  A  TAG  NUMBER 
AND  PREFERENCE  NUMBER  AND  WHERE  THE  KEY  OF 
AUC_IS_MAPPING  MATCHES  CORRESPONDING  ATTRIBUTES 
IN  AUC  ST  MAPPING. 


ARGUMENTS : 


TAG-NO 

PREF-NO 

DB-ID 

REC-NAME 

USAGE -COUNT 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


SELDBNM 

DEL1ASM 

UERROR 

ERRPRO 


DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 ( 9 ) ] 
DSPLYfX ( 30) ) 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 
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NAME:  DRPUNIN 
PURPOSE:  DROP  RECORD  UNION 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPUNIN 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DELETES  ALL  RECORDS  FROM  THE  ECRTUD 
TABLE  WHICH  BELONG  TO  A  RECORD  UNION 
DEFINITION 

-  OBTAIN  DATA  BASE  AND  RECORD  NAME  FROM  PARSER. 
THAT  THE  RECORD  UNION  TO  BE  DELETED  DOES  EXIST. 
IF  IT  DOES  DELETE  ALL  ROWS  OF  ECRTUD  THAT 
DEFINE  THE  RECORD  UNION. 


INCLUDE  FILES: 


CHKCDM 

ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


DBLOOK 

SELURT 

UERROR 

ERRPRO 


VE 
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NAME:  DRPVAL 

PURPOSE:  DROP  A  SPECIFIC  DOMAIN  VALUE  FOR  A  GIVEN  DOMAIN 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DRPVAL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DELETE  A  SPECIFIC  VALUE  FROM  DOMAIN_VALUE  TABLE 
ASSOCIATED  WITH  A  SPECIFIC  DOMAIN  NUMBER 


ARGUMENTS : 


DOM-NO 

DOM-VALUE 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


DSPLY [S9 (9)  ] 
DSPLY[X(30) ] 
DSPLY [X (5) ] 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DRPVALA 

PURPOSE:  DROP  ALL  VALUES  ASSOCIATED  WITH  A  DOMAIN  NUMBER 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  DRPVALA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DELETE  ALL  VALUES  FROM  DOMAIN_VALUE  TABLE 
ASSOCIATED  WITH  A  SPECIFIC  DOMAIN  NUMBER 


ARGUMENTS : 


DOM-NO  DSPLY [ S9 ( 9 ) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 
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NAME:  DRPVIEW 
PURPOSE:  DROP  THE  VIEW. 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  DRPVIEW 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


EXTRACT  THE  VIEW  NAME,  AND  DROP  THE  CORRESPONDING 

DATA  ITEM,  PROJECT  DATA  ITEM,  VIEW_QUAL_XREF , 
VIEW_EC_XREF,  VIEW_QUALIFY_CRITERIA ,  AND  USERVIEW. 


SELECT  THE  FIRST  VIEW-NAME  AND  VERIFY 

THAT  THE  VIEW  DOES  EXIST  THEN  DELETE  THE 
ASSOCIATED  DATA  ITEM,  PROJECT  DATA  ITEM, 
SEC  AND  SEC-RC-COMPONENT.  REPEAT  THE 

PROCESS 


FOR  THE  OTHER  VIEWS  TO  BE  DROPPED. 


INCLUDE  FILES: 


LISTNOS 

UNIQENO 

ERRCDM 


ROUTINES  CALLED: 


CPFONE 

VERVIEW 

UERROR 

DELPDI 

DRPDIV 

DELDIV 

DELQCTG 

DELECRF 

DELQCRF 

DELVIEW 

DELTEXT 

CPFNXT 

UWARN 
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NAME:  DRPVMOD 

PURPOSE:  DROP  VERIFICATION  MODULE'S  NAME  FOR  DOMAIN  NUMBER 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  DRPVMOD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DELETE  THE  MODULE  NAME  OF  THE 
VERIFICATION  MODULE  FROM  THE 
VERI F_MODULE  TABLE  FOR  A  SPECIFIC 
DOMAIN  NUMBER 


ARGUMENTS : 


DOM-NO  DSPLY [ S9 ( 9 ) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  DTUSAGE 

PURPOSE:  DETERMINE  ASSOCIATIONS  OF  A  DATA  TYPE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  DTUSAGE 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DETERMINE  IF  THE  DATA  TYPE  BEING  DROPPED  ARE 

ASSOCIATED  WITH  ANY  DATA  FIELD,  DATA  ITEMS  OR 
ATTRIBUTE  CLASS. 

VERIFY  IF  DATA  FIELD,  DATA  ITEM  AND 

ATTRIBUTE  CLASS  IS  ASSOCIATED  WITH  THE 
DATA  TYPE. 


ARGUMENTS : 


DOM-NO 

DATA-TYPE-NAME 

RETURN-STATUS 


DSPLY[S9 (9) ] 
DSPLY [X ( 30)  ] 
DSPLY[S9 (9)  ] 


ROUTINES  CALLED: 


VERDFDT 
VERDI DT 
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NAME:  ECLOOK 

PURPOSE:  GENERATE  'FROM'  AND  'WHERE'  CLAUSES  FOR  CREATE  VIEW 
CMD 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  ECLOOK 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  FRWH,  THIS  ROUTINE  WILL  ASSIGN 
AN  ABBR-CODE  FOR  ENTITY  NAMES  RETRIEVED  FOR 
A  GIVEN  VIEW  NUMBER.  THE  EC-NAMES  ARE  LOADED 
INTO  AN  INTERNAL  TABLE.  RC-NAMES  RETRIEVED  ARE 
LOADED  INTO  A  SECOND  INTERNAL  TABLE.  AFTER  TABLE 
LOADING  HAS  BEEN  COMPLETED,  THE  'FROM'  AND  'WHERE' 
CLAUSES  ARE  GENERATED  FOR  THE  VIEW. 


ARGUMENTS : 


IND-EC-NAME 
RC-NAME 
DEP-EC-NAME 
EC-NAME-TABLE 
RC-NAME -TABLE 


DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
RECRD 
RECRD 


INCLUDE  FILES: 


ADDPARM 

ERRCDM 

ECTBL 

RCTBL 

ERRPRO 


ROUTINES  CALLED: 


UERROR 

ERRPRO 
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NAME !  ECRTALL 

PURPOSE:  SELECT  ALL  ENTITY  TO  RECORD  MAPPINGS  FOR  A  GIVEN 
ENTITY 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  ECRTALL 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  AND  COUNT  ALL  ROWS  IN  EC_RT_MAPPING 
FOR  A  GIVEN  EC  NO. 


ARGUMENTS : 


EC-NO 

E  CRT - COUNT 
RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY[X(5)  ] 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  ECRTCHK 

PURPOSE:  VERIFY  IF  A  RECORD  HAS  BEEN  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  ECRTCHK 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  FROM  AUC_IS_MAPPING  IF  THE  RECORD 
HAS  BEEN  MAPPED  TO  AN  ENTITY. 

IF  THERE  EXISTS  A  MAPPING,  RETURN  A  VALUE 
OF  1  IN  FOUND-FLAG. 


ARGUMENTS : 


RT-NO 

FOUND-FLAG 

RETURN-STATUS 


DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  ENTKW 

PURPOSE:  SEARCH  FOR  ENTITY  KEYWORD  MATCHES  WITHIN  TWO  MODELS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  ENTKW 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  CONTROLS  THE  PROCESSING  LOGIC  TO  POPULATE  A 
KEYWORD  TABLE  WITH  ENTITY  CLASS  KEYWORDS  OF  ONE  MODEL,  THEN 
SEARCHES  THIS  TABLE  FOR  MATCHES  FROM  THE  SECOND  MODEL. 


ARGUMENTS : 


MOD-NO 1 
M0D-N02 
MOD-NAME 1 
MOD-NAME2 


DSPLY[S9 (9)  ] 
DSPLY[S9  (9)  ] 
DSPLY[X(30) ] 
DSPLY [X (30) ] 


INCLUDE  FILES: 


KWDTBL 

ERRPRO 


ROUTINES  CALLED: 


RETECKW 

RECKW2 

ERRPRO 
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NAME:  EXCFLAG 

PURPOSE:  DETERMINE  IF  KEYWORDS , ALIASES , DESCR  ARE  TO  BE 
EXCLUDED 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  EXCFLAG 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GETS  THE  ITEMS  TO  BE  EXCLUDED  (IF  ANY)  FROM  THE  PARSER  LIST 
AND  SETS  THE  KEYWORD,  ALIAS  AND  DESC  FLAP  ACCORDINGLY.  A 
FLAG  VALUE  OF  ZERO  INDICATES  KEYWORDS,  ALIASES,  AND/OR 
DESCRIPTIONS  ARE  TO  BE  INCLUDED  IN  GENERATED  NDDL  COMMANDS. 
A  VALUE  OF  1  INDICATE  THEY  ARE  TO  BE  EXCLUDED  FROM  THE 
GENERATED  NDDL. 

.  EACH  KEYWORD  IS  PLACED  ON  A  SEPERATE 
LIST  BY  THE  PARSER. 


ARGUMENTS : 


KEYWRD-FLAG 

ALIAS-FLAG 

DESC-FLAG 


DSPLY[9] 
DSPLY[9] 
DSPLY [ 9 ] 


INCLUDE  FILES: 
LISTNOS 

ROUTINES  CALLED: 
CPFONE 
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NAME:  FCOPATT 

PURPOSE:  GENERATE  UDDL  COMMANDS  FROM  A  COPY  ATTRIBUTE  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FCOPATT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  CALLED  BY  COPY  ATTRIBUTE  TO  GENERATE  NDDL 
COMMANDS  ON  A  FILE. 


ARGUMENTS : 


CUR-MODEL-NO 

MOD-NAME 

AC-NAME1 

AC-NAME2 

DOM-NAME 

AC-NOl 

KEYWORD- FLAG 
ALIAS-FLAG 
DESC-FLAG 
INTER-INTRA 


DSPLY [ S9 (9 )  ] 
DSPLY [X ( 30)  ] 
DSPLY [X ( 30 )  ] 
DSPLY [X (30)  ] 
DSPLY [X( 30)  ] 
DSPLY [S9 (9) ] 
DSPLY [9] 
DSPLY [9] 
DSPLY [ 9 ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 

ROUTINES  CALLED: 


VERATT 

UERROR 

NFLOPEN 

ADDPARM 

GENATT 

GENDESC 

UWARN 

GENALI 

NFLCLOS 

ERRPRO 
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NAME:  FETITAG 

PURPOSE:  SELECT  ALL  INHERITED  ATTRIBUTES  OF  THE  SPECIFIED  TAG 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FETITAG 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  THIS  MODULE  WILL  SELECT  ALL  INHERITED 
ATTRIBUTES  OF  THIS  TAG  OF  A  SPECIFIED 
KEY.  THESE  INHERITED  ATTRIBUTES  ARE 
POPULATED  IN  THE  UPD-TAG-LIST. 

UPDATED  3/24/89:  TOOK  OUT  'CONNECT  BY  PRIOR'  FROM  SQL 
STATEMENT  TO  MAKE  STANDARD  SQL.  THE  ORACLE  SQL 
STATEMENT  THAT  WAS  REPLACED  WAS: 

'SELECT  UNIQUE  TAG_NO ,  RC_NO 

FROM  I NHERITE D_ATT_U S E 

CONNECT  BY  PRIOR  TAG_NO  =  KCM_TAG_NO 

START  WITH  KCM_TAG_NO  =  : INPUT-TAG-NO-WS  AND 

KC_NO  =  :KC-NO-WS' 

-  THIS  ROUTINE  WILL  SELECT  ALL  INHERITED  ATTRIBUTES 
OF  THIS  TAG  OF  A  SPECIFIED  KEY.  AFTER  SELECTING 
THESE  INHERITED  ATTRIBUTES  ARE  PUT  IN  THE  UPDATE 
TAG  LIST. 

ARGUMENTS : 


KC-NO 

NEW-TAG-NAME 

INPUT-TAG-NO 

UPD-TAG-LIST 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9) ] 
RE  CRD 

DSPLY [X (5) ] 


INCLUDE  FILES: 


CHKCDM 

ERRCDM 

EOD 

UPDTGLS 

ERRPRO 


ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTOC 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

UERROR 
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SQLCLS 

GETRCID 

VERATAG 

SQLAD1 

SQLFCH 

ERRPRO 


DOCGROUP  PS41100  Module  Documentation 
NAME:  FI LEINS 

PURPOSE:  INSERT  DESCRIPTION  TEXT  INTO  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FILEINS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


EXT  INTO  CDM 

DESCRIPTION  :  FILEINS  READS  DESCRIPTION  TEXT  FROM  A  USER- 

SPECIFIED  FILE  AND  INSERTS  THE  TEXT  INTO  THE  CDM. 

PREVIOUS  DESCRIPTION  TEXT,  IF  ANY,  IS  DELETED. 

IF  THE  FILE  DOESN'T  EXIST  OR  IF  IT  IS  EMPTY,  PRE¬ 
EXISTING  TEXT  IS  NOT  DELETED  AND  AN  ERROR  MESSAGE 
IS  GENERATED. 

5/18/88:  CONVERTED  FROM  COBOL  HLI  ROUTINE  TO  A  PRC 

8/1/88:  MODIFIED  TO  SUPPORT  FIOPS 

11/9/88:  MODIFIED  TO  PUT  IN  NULL  CHARACTER  BEFORE  PASS  TO 

OPNFIL  FILEINS  READS  TEXT  FROM  A  FILE  AND  INSERTS  THE  OBJECT 
TYPE,  OBJECT  NUMBER,  DESCRIPTION  TYPE,  TEXT  LINE  NUMBER 
AND  TEXT  INTO  THE  DATABASE. 

F  IT  EXISTS. 

ARGUMENTS : 


FILE-NAME 

OBJ-TYPE 

DESC-TYPE 

OBJ-NO 

LINE-COUNT 

INCLUDE  FILES: 


DSPLY[X(80) ] 
DSPLY [X ( 30)  ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


OPNFIL 

UERROR 

CLSFIL 

INPFIL 

DELTXT 

ERRPRO 
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NAME:  FINDDOM 

PURPOSE:  RETRIEVE  A  DOMAIN  NUMBER  FOR  A  GIVEN  DOMAIN  NAME 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FINDDOM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


Given  an  attribute  class  number,  this  routine  will 
return  its  domain  number. 


ARGUMENTS : 


AC-NO 

DOM-NO 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  FLDSEMS 

PURPOSE:  SEMANTICS  CHECKS  FOR  FIELD  VARIABLES  BEFORE  INSERTION 
TO  CDM. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  FLDSEMS 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  PROVIDES  THE  SEMANTICS  CHECKS  FOR  FIELD 
INDEXING,  KEYS,  ETC.  IF  NO  ERRORS  OCCUR,  THE  FIELDS 
ARE  INSERTED  INTO  THE  CDM. 

VERIFIES  ALL  INFORMATION  IN  DFTBL 
BY  CHECKING  KEYS, 

SUB-COMPONENTS,  INDEXING,  REDEFINES,  ETC. 


DS PLY [X (30) ] 
RECRD 

DSPLY [S9 (9) ] 


LISTNOS 

ERRCDM 

UNIQENO 

TDFTBL 

DFTBL 

ERRPRO 

ROUTINES  CALLED: 


UERROR 

VERDTYP 

ERRPRO 


ARGUMENTS : 


DBMS -NAME 
DFT-TABLE 
NDDL-STATUS 


INCLUDE  FILES: 
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NAME:  FMTIAUC 

PURPOSE:  FORMATS  A  LINE  FOR  THE  ..SET..  CLAUSE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FMTIAUC 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


formats  a  line  for  the  SET  clause 


ARGUMENTS  *. 


IAUC-TAG-NAME  DSPLY [ X ( 3  0 ) ] 

OWNER-TAG-NAME  DSPLY [ X ( 3  0 ) ] 


ROUTINES  CALLED: 


ADDPARM 
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NAME:  FND1MEM 

PURPOSE:  RETRIEVE  RECORD  TYPE  OF  MEMBER  ASSOCIATED  WITH  A  SET 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FND1MEM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


FND1MEM  VERIFIES  THAT  THE  DATABASE  NAME,  SET-NAME  AND  MEMBER 
RECORD  NAME  IS  VALID.  IN  THE  CASE  THAT  THE  OPTIONAL  MEMBER 
RECORD  NAME  HAS  NOT  BEEN  ENTERED,  THIS  ROUTINE  VERIFIES  THAT 
THIS  SET  HAS  ONLY  1  MEMBER  RECORD  NAME  WHICH  IT  RETURNS. 

AN  NDML  SELECT  STATEMENT  RETRIEVES  ALL  OCCURRENCE  OF  THE 
RT_I D_OF_MEMBER  WHOSE  DB_ID  AND  SET_ID  MATCH  THE  INPUT 
ARGUMENTS.  IF  THE  USER  ENTERED  A  MEMBER  RECORD  NAME,  IT  IS 
VALIDATED.  IF  THE  USER  DID  NOT  ENTER  A  MEMBER  RECORD  NAME, 

A  CHECK  IS  MADE  FOR  A  SINGLE  SET  TYPE  MEMBER,  AND,  IF  SO, 

THE  SINGLE  SET  TYPE  MEMBER  NAME  IS  RETURNED. 


ARGUMENTS : 


DB-NO  DSPLY[S9 (9) ] 
SET-NAME  DSPLY [ X ( 3  0 ) ] 
MEMBER-RECORD-NAME  RE CRD 


INCLUDE  FILES: 


SRVRET 

ERRPRO 

ROUTINES  CALLED: 


UERROR 

ERRPRO 
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NAME:  FNDACM 

PURPOSE:  DELETE  ALL  ATTRIBUTE  CLASSES  FROM  A  GIVEN  MODEL 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  FNDACM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DELETES  THE  ATTRIBUTE  CLASS  FROM  THE  MODEL. 
DELETE  ATTRIBUTE,  KEYWORDS,  VIEWS,  ETC,  FROM 
MODEL,  GIVEN  THE  AC-NO.  THEN  RETURN  THIS  NUMBER  TO  THE 
REUSABLE  POOL. 


ARGUMENTS : 


MODEL-NO  DSPLY [ S9 ( 9 ) ] 

ERROR-STATUS  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 


ROUTINES  CALLED: 


DELAC 

DELACKW 

DELTEXT 

DELACNM 

ADDRNUM 

SELACNM 

UERROR 

ERRPRO 
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NAME:  FNDASA 

PURPOSE:  VERIFY  WHETHER  A  SET  HAS  BEEN  MAPPED  TO  AN  AUC 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FNDASA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  that  a  set  has  or  has  not 
been  mapped  to  an  attribute  use  class  before. 


ARGUMENTS : 


DB-ID 

SET-ID 

FOUND 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  FNDASM 

PURPOSE:  DETERMINES  IF  AN  AUC  TO  SET  TYPE  MAPPING  EXISTS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FNDASM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  PERFORMS  AN  NDML  SEARCH  OF  THE 
AUC_ST_MAPPING  TABLE  TO  DETERMINE  WHETHER  A  PARTICULAR 
MAPPING  EXISTS.  IF  SO,  FOUND  =  1;  OTHERWISE  ZERO. 


ARGUMENTS : 


DB-NO 
SET-NAME 
TAG -NO 
FOUND 


DSPLY[S9 (9)  ] 
DSPLY [X (30) ] 
DSPLY[S9 (9) ] 
DSPLY [ S9 ( 9 )  ] 


INCLUDE  FILES: 


SRVRET 

LRRPRO 


ROUTINES  CALLED: 
ERR PRO 
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NAME:  FNDAUC 

PURPOSE:  DELETE  ALL  ATTRIBUTE  USE  CLASSES  FOR  A  GIVEN  ENTITY 
CLASS 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  FNDAUC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


FNDAUC  WILL  RETRIEVE  ALL  ATTRIBUTE  USED  CLASSES 
FOR  AN  ENTITY  AND  DELETE  EACH  ONE. 


ARGUMENTS : 


EC-NO  DSPLY[S9 (9) ] 

RETURN-STATUS  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 
ERR PRO 


ROUTINES  CALLED: 


DELAUC 
UERROR 
ERR  PRO 


3-704 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


FAME:  FNDEC 

PURPOSE:  VERIFY  AN  ENTRY  EXISTS  IN  DEP-EC-LIST  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FNDEC 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Verify  if  an  entry  exists  in  the 
DEP-EC-LIST  table  given  an  EC-NO. 


ARGUMENTS : 


DSPLY [ S9 (9 ) ] 
RECRD 

DSPLY [S9  (9) ] 


INCLUDE  FILES: 


CHKCDM 

ERRCDM 

DEPECL 

ERRPRO 


EC-NO 

DEP-EC-LIST 

FOUND 


ROUTINES  CALLED: 
ERRPRO 
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NAME :  FNDECCM 

PURPOSE:  SELECT  THE  CATEGORY  RELATION  NUMBER  THAT  AN  ENTITY  IS 
PART  OF 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  FNDECCM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  SELECTS  THE  CATEGORY  RELATION  NUMBER  THAT 
AN  ENTITY  IS  PART  OF  AS  A  MEMBER  ENTITY. 


ARGUMENTS : 

FROM-EC-NO 

DSPLY [S9 (9) ] 

FROM-EC-NAME 

DSPLY [X (30) ] 

TO-EC-NO 

DSPLY [S9 (9) ] 

TO-EC-NAME 

DSPLY [X (30) ] 

RTN-STATUS 

DSPLY [S9 (9)  ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

UERROR 

ADDPARM 

ERRPRO 
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NAME:  FNDECCR 

PURPOSE:  SELECT  THE  CATEGORY  RELATION  NUMBER  THAT  AN  ENTITY  IS 
PART  OF 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  FNDECCR 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  SELECTS  THE  CATEGORY  RELATION  NUMBER  THAT 
AN  ENTITY  IS  PART  OF  AS  THE  GENERIC  ENTITY. 

IF  RC-NO  IS  GREATER  THAN  ZERO  THIS  MEANS  THAT  SOMETHING 
WILL  BE  INVALID. 


ARGUMENTS : 


EC-NO 

RC-COUNTER 

RTN-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ S9 ( 9 ) ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  FNDECM 

PURPOSE:  DELETES  ALL  ENTITIES  AND  ASSOCIATED  OBJECTS  FOR  A 
GIVEN  MODEL 
LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  FNDECM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DELETES  THE  ENTITY  CLASS  FROM  THE  MODEL  TO  BE 
DROPPED,  ALONG  WITH  THE  ATTRIBUTE  USE  CLASSES,  KEY  CLASSES 
AND  RELATION  CLASSES. 


ARGUMENTS : 


MODEL-NO  DSPLY [ S9 ( 9 ) ] 

ERROR-STATUS  DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 


ROUTINES  CALLED: 


DELOACE 

DELEC 

DELECKW 

DELECON 

DELTEXT 

DLMDAUC 

DELMDKC 

DELMDRC 

DELECNM 

ADDRNUM 

SELECNM 

U ERROR 

ERRPRO 
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NAME:  FNDECM1 

PURPOSE:  SELECT  THE  CATEGORY  RELATION  NUMBER  THAT  AN  ENTITY  IS 
PART  OF 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  FNDECM1 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  SELECTS  THE  CATEGORY  RELATION  NUMBER  THAT 
AN  ENTITY  IS  PART  OF  AS  A  MEMBER  ENTITY. 


ARGUMENTS : 


FROM-EC-NO 

TO-EC-NO 

RTN-STATUS 


DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  FNDOAC 

PURPOSE:  DELETES  ALL  OWNED  ATTRIBUTES  FOR  A  GIVEN  ENTITY  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FNDOAC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


FNDOAC  WILL  RETRIEVE  ALL  OWNED  ATTRIBUTES 
FOR  AN  ENTITY  CLASS  AND  DEBATE  THEM  AS  OWNED 
ATTRIBUTES  OF  THE  ENTITY  CLASS. 


DSPLY[S9 (9) ] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


EC-NO 

RETURN-STATUS 


ROUTINES  CALLED: 


DELOAC 

UERROR 

ERRPRO 
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NAME:  FNDPDF 

PURPOSE:  VERIFY  WHETHER  A  DATA  FIELD  HAS  BEEN  MAPPED  TO  AN  AUC 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FNDPDF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THAT  A  GIVEN  DATA  FIELD 
HAS  BEEN  MAPPED  TO  AN  AUC  BEFORE. 


ARGUMENTS : 


DB-NO 

REC-NAME 

DF-NAME 

FOUND 


DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY [X (30) ] 
DSPLY[S9 (9) ) 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  FNDRCEC 

PURPOSE:  VERIFY  ENTRY  EXISTS  IN  RC-DEPKC-LIST  GIVEN  EC-NO. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  FNDRCEC 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Verify  that  an  entry  exists  in  the 
rc-depkc-list  given  an  ec-no. 


ARGUMENTS : 


EC-NO 

RC-DEPKC-LIST 

FOUND 


DSPLY [S9 (9) ] 
RECRD 

DSPLY [S9 (9) ] 


INCLUDE  FILES: 


CHKCDM 

ERRCDM 

RCDEPKC 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  FNDRCIE 

PURPOSE:  VERIFY  ENTRY  EXISTS  IN  RC-DEPKC-LIST  GIVEN  EC-NO. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  FNDRCIE 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Verify  that  an  entry  exists  in  the 
rc-depkc-list  given  an  ec-no. 


ARGUMENTS : 


EC-NO 

RC-DEPKC-LIST 

FOUND 


DSPLY[S9 (9) ] 
RECRD 

DSPLY[S9 (9) ] 


INCLUDE  FILES: 


CHKCDM 

ERRCDM 

RCDEPKC 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  FNDRCM 

PURPOSE:  RETRIEVES  ALL  RC/RT  MAPPINGS  FOR  A  NAMED  RECORD 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  FNDRCM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


FNDRCM  RETURNS  ALL  ROWS  OF  RC_BAS  E D_REC_S  ET 
WITH  MATCHING  DB  NUMBERS,  SET  NAMES  AND  RELATION  CLASS  NUMBERS. 
IF  THE  USER  ENTERED  A  RECORD  NAME  IN  THE  COMMAND,  A  CHECK  IS 
MADE  TO  DETERMINE  IF  IT  IS  VALID.  IF  NO  RECORD  NAME  WAS 
ENTERED,  AND  IF  MORE  THAN  1  ROW  IS  RETURNED,  AN  ERROR  CONDITION 
EXISTS.  ALSO,  AN  ERROR  CONDITION  EXISTS  IF  NO  ROWS  ARE 
RETURNED. 


ARGUMENTS : 


DB-NO 

SET-NAME 

RC-NO 

REC-NAME 

ERROR-FLAG 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9)  ] 
RECRD 

DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  FRTOREL 

PURPOSE:  DETERMINE  IF  RELATION  EXISTS  BETWEEN  INTRA-MOD 
ENTITIES 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  FRTOREL 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  LOOKS  FOR  RELATIONS  BETWEEN  THE  FROM-ENTITY 
AND  TO-ENTITY  ON  AN  INTRA  MODEL  COMBINE.  IF  FOUND,  GENERATE 
A  "DROP  RELATION". 


ARGUMENTS : 

FROM-EC-NO 

DSPLY[S9 (9)  ] 

FROM-EC-NAME 

DSPLY[X(30) ] 

TO-EC-NO 

DSPLY[S9 (9) ] 

TO-EC-NAME 

DSPLY[X(30) ] 

RCNO-LIST 

INCLUDE  FILES: 

LISTREL 

RELTBL 

ERRPRO 

ROUTINES  CALLED: 

SELRCNM 

UWARN 

ADDPARM 

ERRPRO 
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NAME:  GEN1DSC 

PURPOSE:  GENERATES  A  DESCRIBE  COMMAND  FOR  A  SPECIFIC  DES-TYPE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GEN 1 DSC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Genldsc  selects  from  desc_text  based 

on  the  desc-type,  object-type  and  object-no.  It  will 

then  generate  a  DESCRIBE  command  for  that  description. 


ARGUMENTS : 

DESC-TYPE 

DSPLY [X (30) ] 

OBJ-TYPE 

DSPLY [X ( 30) ] 

FROM-OBJ-NO 

DSPLY [ S9 (9 ) ] 

OBJ-NAMEA 

DSPLY [ X ( 3  0 ) ] 

OBJ-NAMEB 

DSPLY [X (30) ] 

OBJ-NAMEC 

DSPLY [X ( 30) ] 

RET-COUNT 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY[X(5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ADDTXT 

ADDPARM 

ERRPRO 
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NAME:  GENAKW 

PURPOSE:  RETRIEVE  ALL  KEYWORDS  FOR  AN  ATTRIBUTE  CLASS 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GENAKW 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECTS  ALL  THE  KEYWORDS  FOR  A  GIVEN  ATTRIBUTE  AND  < 
THE  KEYWORD  PHRASE  FOR  THE  CREATE  ATTRIBUTE  COMMAND 

ARGUMENTS : 

AC-NO 

DSPLY[S9 (9) ] 

INCLUDE  FILES: 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ADDPARM 

ERRPRO 
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NAME:  GENALG 

PURPOSE:  SELECT  DATA  ITEMS  USED  IN  ALG  CONVERSION  FOR  GIVEN 
VIEW 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENALG 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  GENVIEW,  THIS  ROUTINE  WILL  SELECT 
ALL  DATA  ITEMS  INCLUDED  IN  A  GIVEN  VIEW  THAT 
ARE  INPUT/OUTPUT  PARAMETERS  TO  AN  ALGORITHM 
CONVERSION  AND  THEN  CALL  A  SUBPROGRAM  TO  GENERATE 
THE  ACTUAL  'DEFINE  ALGORITHM'  COMMAND. 


DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ARGUMENTS : 


VIEW-NO 

RET-STATUS 


ROUTINES  CALLED: 


WRTALG 

ERRPRO 
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NAME:  GENALI 

PURPOSE:  GENERATE  A  CREATE  ALIAS  COMMAND  FOR  AN  OBJECT  TYPE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENALI 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GENERATES  A  CREATE  ALIAS  GIVEN  THE  OBJECT  TYPE  (''ENTITY"  OR 
"ATTRIBUTE")  AND  THE  OBJECT'S  PRIMARY  NAME  AND  ALIAS  NAME. 


ARGUMENTS : 


OBJ-TYPE 
OBJ -NAME 
ALIAS -NAME 


DSPLY[X(30) ] 
DSPLY [X (30)  ] 
DSPLY [X ( 30)  ] 


ROUTINES  CALLED: 
ADDPARM 
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NAME:  GENALT1 

PURPOSE:  GENERATE  AN  ALTER  ENTITY. .ADD  KEY  CLASS  COMMAND 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GENALT1 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


Generates  an  ALTER  ENTITY  command  to  add  a  Key 
class  to  an  entity,  given  the  entity's  ec-no  and  ec-name. 


DSPLY [S9 (9) ] 
DSPLY [X(30) ] 
RE  CRD 


INCLUDE  FILES: 


KEYLIST 


ARGUMENTS : 


EC-NO 

EC-NAME 

KC-LIST 


ROUTINES  CALLED: 


NEXTKC 

VERKCT1 

ADDPARM 

NEXTKCM 
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NAME:  GENALTE 

PURPOSE:  GENERATE  AN  ALTER  ENTITY. .ADD  KEY  CLASS  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENALTE 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


Generates  an  ALTER  ENTITY  command  to  add  a  key 
class  to  an  entity,  given  the  entity's  ec-no  and  ec-name. 

MODIFIED  7/19/89:  ADD  "ALTERNATE"  TO  ALTER  ENTITY  COMMAND  ADD 
KEYS 


ARGUMENTS : 


EC-NO 

EC-NAME 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 


ROUTINES  CALLED: 


NEXTKC 

ADDPARM 

VERKCT1 

NEXTKCM 
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NAME:  GENAREL 

PURPOSE:  GENERATE  CREATE  MAP  TO  RELATION  COMMANDS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENAREL 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

-  7 


ARGUMENTS : 


IND-EC-NAME 

RC-NAME 

DEP-EC-NAME 

SET-ID 

DB-NAME 

RT- ID-MEM 

FIRST-FLAG 


INCLUDE  FILES: 


DSPLY [X (30)  ] 
DSPLY[X(30)  ] 
DSPLY [X( 30)  ] 
DSPLY [X (30)  ] 
DSPLY [X( 30)  ] 
DSPLY [X( 30)  ] 
DSPLY [S9 (9) ] 


ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GENATT 

PURPOSE:  GENERATE  A  CREATE  ATTRIBUTE..  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENATT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GENERATES  A  CREATE  ATTRIBUTE  COMMAND. 


ARGUMENTS : 


AC-NO 

AC-NAME 

DOM-NAME 

KEYWRD-FLAG 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY[X(30) ] 
DSPLY[9] 


ROUTINES  CALLED: 


ADDPARM 

GENAKW 
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NAME:  GENATTR 

PURPOSE:  GENERATES  A  CREATE  ATTRIBUTE  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENATTR 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


Generates  a  create  attribute  command. 


ARGUMENTS : 

TO-EC-NAME 

DSPLY[X(30) ] 

GEN-FLAG 

DSPLY [X] 

ALIAS -FLAG 

DSPLY[X] 

KEYWORD- FLAG 

DSPLY [X] 

DESC-FLAG 

DSPLY [X] 

AC-NAME 

DSPLY [X( 30) ] 

AC-NO 

DSPLY [S9 (9) ] 

TAG-NO 

DSPLY [S9 (9) ] 

DOMAIN-NAME 

DSPLY [X ( 30) ] 

AC-CNT 

DSPLY [S9 (9) ] 

COPY-TYPE 

DSPLY [X( 30) ] 

NKEY-FLAG 

DSPLY [X] 

TO-MODEL-NO 

DSPLY [S9 (9) ] 

KCM-FLAG 

DSPLY [X] 

INCLUDE  FILES: 

CHKCDM 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

ADDPARM 

VERKCM 

VERATT 

COPAKW 

COPAALI 

GENDESC 

ERRPRO 
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NAME:  GENCAT 

PURPOSE:  GENERATE  CREATE  CATEGORY  COMMANDS  FOR  MEMBERS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENCAT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Generate  create  category  commands  for  all 
relations  in  which  the  target  entity  is  a  member. 


ARGUMENTS : 

FROM-EC-NO 

DSPLY[S9 (9) ] 

TO-EC-NAME 

DSPLY[X(30) ] 

TO-MOD-NO 

DSPLY[S9 (9) ] 

FROM-MOD-NO 

DSPLY[S9 (9) ] 

KEYWORD-FLAG 

DSPLY[X] 

DESC-FLAG 

DSPLY [X3 

MIGRATES -FLAG 

DSPLYtX] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

SELECNM 

VERENT 

SELACNM 

ADDPARM 

GENCNM3 

COPCKW 

GENDESC 

ERRPRO 
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NAME:  GENCMPX 

PURPOSE:  CONTROLS  GENERATING  OF  DEFINE  ALGORITHM  CMD  FOR  COPY 
MAP 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENCMPX 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


RECRD 

DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY [X (30) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 


ARGUMENTS : 


MOD-TABLE 

DB-ID 

DB-NAME 

RT-ID 

TAG-NO 

PREF-NO 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

AUPTBL 

DFPTBL 

RTPTBL 

MDTBL 

ERRPRO 

ROUTINES  CALLED: 


CHKCMPX 

ERRPRO 
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NAME:  GENCNM1 

PURPOSE:  FORMAT  THE  CREATE  CATEGORY  CLAUSE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENCNM1 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

Formats  the  CREATE  CATEGORY  clause. 


ARGUMENTS : 

FROM-MOD-NO 

DSPLY [S9 (9) ] 

GEN-EC-NAME 

DSPLY [X (30) ] 

RC-NO 

DSPLY [S9 (9) ] 

RC-NAME 

DSPLY [X( 30) ] 

AC-NAME 

DSPLY [X( 30) ] 

RC-DEPKC-LIST 

RECRD 

DEPENT-FLAG 

DSPLY [9] 

HOLD-RC-INDEX 

DSPLY [999] 

RETURN-STATUS 

DSPLY [S9 (9) ] 

INCLUDE  FILES: 

RCDEPKC 

ROUTINES  CALLED: 

ADDPARM 

FNDRCEC 

VERRCC 

SELIAUC 
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NAME:  GENCNM2 

PURPOSE:  FORMAT  THE  CREATE  CATEGORY  CLAUSE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GENCNM2 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

Formats  the  CREATE  CATEGORY  clause. 


ARGUMENTS : 

FROM-MOD-NO 

DSPLY[S9 (9) ] 

GEN-EC-NAME 

DSPLY [ X ( 3  0 ) ] 

RC-NO 

DSPLY[S9 (9) ] 

RC-NAME 

DSPLY [X (30) ] 

AC-NAME 

DSPLY [X ( 30) ] 

DEP-EC-LIST 

RECRD 

DEPENT-FLAG 

DSPLY[9] 

RETURN-STATUS 

DSPIjY  [S9  (9)  ] 

INCLUDE  FILES: 

DEPECL 

ROUTINES  CALLED: 

FNDEC 

ADDPARM 

VERRCC 

SELIAUC 
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NAME:  GENCNM3 

PURPOSE:  FORMAT  THE  CREATE  CATEGORY  CLAUSE  FOR  COPY  ENTITY 
WITH  RELATION 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENCNM3 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

Formats  the  CREATE  CATEGORY  clause. 


ARGUMENTS : 

FROM-MOD-NO 

DSPLY[S9 (9) ] 

TO-MOD-NO 

DSPLY[S9 (9) ] 

FROM-EC-NO 

DSPLY[S9 (9) ] 

TO-EC-NAME 

DSPLY[X(30) ] 

GEN-EC-NAME 

DSPLY[X(30) ] 

RC-NO 

DSPLY[S9 (9) ] 

RC-NAME 

DSPLY[X(30) ] 

AC-NAME 

DSPLY [X ( 30) ] 

COMBINE-TYPE 

DSPLY[9] 

RETURN-STATUS 

DSPLY [S9 (9) ] 

ROUTINES  CALLED: 

ADDPARM 

VERENT 

VERRCC 

SELIAUC 

3-729 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  GENCNME 

PURPOSE:  FORMAT  THE  CREATE  CATEGORY  CLAUSE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENCNME 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

Formats  the  CREATE  CATEGORY  clause. 


ARGUMENTS : 


FROM-MOD-NO 

TO-MOD-NO 

GEN-EC-NAME 

RC-NO 

RC-NAME 

AC-NAME 

COMBINE-TYPE 

RETURN-STATUS 


DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [X (30)  ] 
DSPLY [S9 (9) ] 
DSPLY [X( 30)  ] 
DSPLY [X (30) ] 
DSPLY (9) 
DSPLY (S9 (9) ] 


ROUTINES  CALLED: 


ADDPARM 

VERENT 

VERRCC 

SELIAUC 
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NAME:  GENCREC 

PURPOSE:  GENERATES  CREATE  MAP  COMMANDS  FOR  ALL  ENTITY  TO 
RECORD 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENCREC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Generates  the  CREATE  MAP  commands  for 
all  the  entity  to  record  mappings  where 
the  record  specified,  on  the  COPY  MAP  FOR 
RECORD  command  participates 


ARGUMENTS: 


DSPLY[S9 (9) ] 
RECRD 


INCLUDE  FILES: 


ERRCDM 

ECRTBL 

ERRPRO 


RT-NO 

E CRT -TABLE 


ROUTINES  CALLED: 


GENECRT 

ERRPRO 
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NAME:  GENCRPT 

PURPOSE:  GENERATE  CREATE  PARTITION  COMMANDS  FOR  COPY  MAP  TO 
RECORD 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  GENCRPT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


RT-NO 

HP-TABLE 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

HPTBL 

ERRPRO 


ROUTINES  CALLED: 


GENEHP 

UERROR 

ERRPRO 


DSPLY [S9 (9)  ] 
RECRD 
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NAME:  GENCRUN 

PURPOSE:  SELECT  ALL  FROM  ECRTUD  GIVEN  DB  AND  RT  THEN  GENERATE 
CREATE  UNION  CM 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENCRUN 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 

RT-ID 


DSPLY[S9 (9) ] 
DSPLY [X (30) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

SELDBNM 

SELECNM 

ERRPRO 
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NAME:  GENDALG 

PURPOSE:  GENERATE  DEFINE  ALGORITHM  COMMANDS  FOR  COPY  MAP 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENDALG 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 
_  •? 


ARGUMENTS : 

MOD- ID 

DSPLY [X ( 10) ] 

PREF-NO 

DSPLY[S9 (9) ] 

USE-CODE 

DSPLY [X] 

MOD- INST 

DSPLY [S99] 

AUC-PARM-TABLE 

RECRD 

RT-PARM-TABLE 

RECRD 

DF-PARM-TABLE 

RECRD 

INCLUDE  FILES: 

AUPTBL 

RTPTBL 

DFPTBL 

ERRPRO 

ROUTINES  CALLED: 

ADDPARM 

GTCNTPR 

ERRPRO 
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NAME:  GENDB 

PURPOSE:  GENERATE  DEFINE  DATABASE, RECORD ( ALLREC ) ,  AND 
SET (ALLSET)  COMMANDS 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENDB 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


_  -p 


ARGUMENTS : 


DB-TABLE  RECRD 

DESC-FLAG  DSPLY[X] 


INCLUDE  FILES: 


DBTBL 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

VERPCB 

VERPASS 

VERDBA 

VERSCH 

GENDESC 

ALLREC 

ALLSET 

ERRPRO 
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NAME:  GENDCOM 

PURPOSE:  GENERATE  COMMANDS  FOR  DEPENDENTS 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GENDCOM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  routine  is  called  when  a  relation  is 
found  in  GENDEP. 


ARGUMENTS : 

IND-EC-NO 

DSPLY [ S9 ( 9 ) ] 

TO-MOD-NO 

DSPLY[S9 (9)  ] 

NO-IND-ENT 

DSPLY [S9 (9) ] 

RC-NAME 

DSPLY [ X ( 3  0 ) ] 

MIN-NO-DEP-ENT 

DSPLY [S9 (9) ] 

MAX-NO-DEP-ENT 

DSPLY [S9 (9) ] 

TO-EC-NAME 

DSPLY [X (30) ] 

MIGRATES-FLAG 

DSPLY [X] 

FROM-MOD-NO 

DSPLY [S9 (9) ] 

RC-NO 

DSPLY [S9 (9) ] 

FROM-EC-NO 

DSPLY [S9 (9) ] 

KEYWORD-FLAG 

DSPLY [X] 

DESC-FLAG 

DSPLY [X] 

INCLUDE  FILES: 

CHKCDM 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

SELECNM 

VERENT 

GENRNME 

MIGREL 

ADDPARM 

COPRKW 

GENDESC 

ERRPRO 
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NAME:  GENDEP 

PURPOSE:  GENERATE  CREATE  RELATION  COMMANDS  FOR  DEPENDENTS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENDEP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Generate  create  relation  commands  for  all 
relations  in  which  the  target  entity  is  dependent. 


ARGUMENTS: 

FROM-EC-NO 

DSPLY[S9 (9) ] 

TO-EC-NAME 

DSPLY[X(30) ] 

TO-MOD-NO 

DSPLY[S9 (9) ] 

FROM-MOD-NO 

DSPLY[S9 (9) ] 

KEYWORD-FLAG 

DSPLY [X] 

DESC-FLAG 

DSPLY [X] 

MIGRATES-FLAG 

DSPLY [X] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

GENDCOM 

ERRPRO 
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NAME:  GENDESC 

PURPOSE:  GENERATED  NDDL  DESCRIBE  COMMANDS  FOR  A  GIVEN  OBJECT 
TYPE  AND  NO 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  GENDESC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CD M 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GENERATES  A  DESCRIBE  COMMAND  WITH  EMBEDDED  TEXT  DESCRIPTION 
FOR  EACH  DESC-TYPE  IN  THE  CDM  FOR  A  GIVEN  OBJECT-TYPE  AND 
OBJECT-NO. 


ARGUMENTS : 


OBJ-TYPE  DSPLY [ X ( 3  0 ) ] 
OBJ-NO  DSPLY [ S9 ( 9 ) ] 
OBJ -NAME 1  DSPLY [X (30) ] 
OBJ-NAME2  DSPLY [ X ( 3  0 ) ] 
OBJ-NAME3  DSPLY [ X ( 3  0 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ADDTXT 

ADDPARM 

ERRPRO 
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NAME:  GENDOM 

PURPOSE:  GENERATE  THE  "CREATE  DOMAIN"  NDDL  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENDOM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  GENERATE  THE  "CREATE  DOMAIN"  NDDL  COMMAND 
USING  INPUT  PARAMETERS,  DOM-NAME  AND 
RETRIEVING  DATA  TYPE/TYPES,  VALUES  AND 
RANGES  OF  THE  DOMAIN. 

IF  USER-FLAG  EQUAL  "Y"  RETRIEVE  ALL  THE 
USER  DATA  TYPES  FOR  THE  DOMAIN,  OTHERWISE 
ONLY  RETRIEVE  AND  GENERATE  THE  STANDARD 
DATA  TYPE • 

IF  DESC-FLAG  EQUAL  "Y"  CALL  "GENDESC" 

TO  GENERATE  DESCRIBE  NDDL  COMMAND  FOR  THE 
DOMAIN  AND  ITS  DATA  TYPES. 

MODIFIED  8/10/89  CODE  THAT  SUPPORTED  THE  VERIFICATION 
MODULE  WAS  REMOVED. 


ARGUMENTS : 


DOM-NO 

DOM-NAME 

DESC-FLAG 

USER-FLAG 


DSPLY[S9 (9) ] 
DSPLY [X (30)  ] 
DSPLY [X] 
DSPLY [X] 


INCLUDE  FILES: 


ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ALLDT 

UERROR 

ALLVAIAJ 

ALLRNG 

ERRPRO 

GENDESC 
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NAME:  GENDT 

PURPOSE:  GENERATE  THE  "TYPE"  CLAUSE  FOR  THE  DATATYPE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENDT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  GENERATE  THE  "TYPE"  CLAUSE  OF  THE  "CREATE 
DOMAIN"  NDDL  COMMAND. 

MODIFIED  8/10/89  LOGIC  TO  HANDLE  NEW  DATA  TYPES  WAS  ADDED 
(V, D,M, A,RfO) 

MODIFIED  12/19/89  LOGIC  TO  HANDLE  OVERPUNCH  DATATYPE  (H) 


ARGUMENTS : 


DATA-TYPE-NAME 

TYPE-ID 

MAX-SIZE 

NO-OF-DEC 


DSPLY[X(30)  ] 
DSPLYfX] 
DSPLY [S9 (9)  ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GENE CRT 

PURPOSE:  GENERATES  THE  CREATE  MAP  COMMANDS  FOR  THE  ENTITY  TO 
THE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENECRT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Generates  the  CREATE  MAP  commands  for  the 
entity  to  the  records  to  which  it  is 
mapped . 


ARGUMENTS : 


EC-NO 
EC-NAME 
RET -STATUS 


DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

VERRULE 

ERRPRO 
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NAME:  GENEHP 

PURPOSE:  GENERATE  CREATE  PARTITION  COMMANDS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENEHP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Select  all  hp's  from  horizontal_part  for  a 
given  ec-no,  and  for  each  generate  a  create 
partition  command. 


ARGUMENTS : 

EC-NO  DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

SELECNM 

VERRTNO 

SELDBNM 

ERRPRO 
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NAME:  GENEKW 

PURPOSE:  SELECT  KEYWORD  FOR  ENTITY  AND  CREATE  KEYWORD  PHRASE 
FOR  CRT  ENT 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENEKW 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECTS  ALL  THE  KEYWORDS  FOR  A  GIVEN  ENTITY  AND  GENERATES 
THE  KEYWORD  PHRASE  FOR  THE  CREATE  ENTITY  COMMAND. 


ARGUMENTS : 


EC-NO  DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GENENT 

PURPOSE:  GENERATE  A  CREATE  ENTITY .. OWNED  ATTRIBUTE .. KEYWORD 
COMMAND 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENENT 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GENERATES  A  CREATE  ENTITY  COMMAND  GIVEN  THE  ENTITY  CLASS 
NO.  AND  NAME. 


ARGUMENTS : 


EC-NO 
EC -NAME 
KEYWRD-FLAG 


ROUTINES  CALLED: 


ADDPARM 

GENOA 

GENEKW 


DSPLY [ S9 (9 ) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY [9] 
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NAME:  GENENT1 

PURPOSE:  GENERATE  CPEATE/ ALTER  ENTITY  COMMAND , ALIAS ,  AND 
DESCRS . 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENENT1 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  GENERATES  A  CREATE  ATTRIBUTE  COMMAND  FOR  ALL 
OWNED  ATTRIBUTES  OF  THE  FROM-ENTITY  ALONG  WITH  ITS  KEYWORDS 
ALIASES  AND  DESCRIPTIONS  FOR  THE  TO-ENTITY,  IF  THE  ATTRIBUTE 
DOES  NOT  EXIST  IN  THE  TO-MODEL. 


ARGUMENTS : 


FROM-MOD-NO 

TO-MOD-NO 

FROM-EC-NO 

TO-EC-NO 

TO-EC-NAME 

KW-FLAG 

ALIAS -FLAG 

DESC-FLAG 

COMBINE-TYPE 

CREATE-FLAG 

RETURN-STATUS 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X (30) ] 
DSPLY [9] 
DSPLY (9] 
DSPLY [9] 
DSPLY[9] 
DSPLY [9] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 
ERRPRO 


ROUTINES  CALLED: 


ADPARM1 

CM  BOA 

CMBEKW 

CMBALI 

GENDESC 

ERRPRO 
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NAME l  GENENT2 

PURPOSE:  GENERATE  COMMANDS  FOR  AN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENENT2 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Generate  create  entity,  create  alias  entity, 
alter  entity  add  keyword,  describe  entity,  and  create 
attribute  (DESC,  ALIAS,  KEYWORDS)  commands  for  an 
entity. 


ARGUMENTS : 

EC-NO 

DSPLY[S9 (9) ] 

EC-NAME 

DSPLY[X(30) ] 

FROM-MODEL-NO 

DSPLY [S9 (9) ] 

ALIAS-FLAG 

DSPLY [X] 

KEYWORD-FLAG 

DSPLY [X] 

DESC-FLAG 

DSPLY [X] 

COPY-TYPE 

DSPLY [X (30)  ] 

TO-MODEL-NO 

DSPLY [S9 (9) ] 

NKEY-FLAG 

DSPLY [X] 

ATTR-FLAG 

DSPLY [X] 

INCLUDE  FILES: 

CHKCDM 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

VERENT 

ADDPARM 

COPEKW 

COPVALI 

GENDESC 

COPOA 

ERRPRO 
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NAME:  GENEUN 

PURPOSE:  SELECT  FROM  ECRTUD  TO  GENERATE  CREATE  UNION  COMMANDS 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GENEUN 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Select  db-id  rt-id  for  a  given  ec  from 
record_type  where  rt_no  of  record_type 
equals  rt  no  of  ecrtud  and  ec_no  = 
the  variaEle  ec-no 

and  for  each  new  db-rt  combination  load  an 
internal  table  and  call  a  routine  to  generate 
create  union  commands  using  the  table 


ARGUMENTS : 


DSPLY[S9 (9) ] 
RECRD 


INCLUDE  FILES: 


EC-NO 

UNION-TABLE 


ERRCDM 

SRVRET 

UNTBL 

ERRPRO 

ROUTINES  CALLED: 


GENCRUN 

UERROR 

ERRPRO 
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NAME:  GENFLD 

PURPOSE:  GENERATE  FIELD  DEFINITIONS  FOR  COPY  RECORD, DATABASE, 
OR  DBMS 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENFLD 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  routine  will  use  an  internal  table  to  store  all 
information  about  all  fields  belonging  to  a  record. 
This  information  will  be  retrieved  and  stored  into 
the  table  by  RETRFLD  routine.  This  routine  will  also 
generate  the  rest  of  the  DEFINE  RECORD  command.  Then 
it  will  generate,  if  requested  by  the  COPY  RECORD 
command,  a  DESCRIBE  RECORD  command  and  a  DESCRIBE 
FIELD  command  for  all  fields  of  the  record. 


ARGUMENTS : 

DB-ID 

DSPLY[S9 (9) ] 

RT-ID 

DSPLY [X (30) ] 

RT-NO 

DSPLY[S9 (9) ] 

DESC-FLAG 

DSPLY [X] 

INCLUDE  FILES: 

ERRCDM 

TDFTBL 

ERRPRO 

ROUTINES  CALLED: 

RETRFLD 

ADDPARM 

GENDESC 

ERRPRO 
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NAME:  GENFROM 

PURPOSE:  GENERATE  CREATE  CATEGORY,  DESCRIBE  COMMANDS  IN  THE 
TO-MODEL 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENFROM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  SELECTS  ALL  THE  RELATIONS  IN  WHICH  THE 
FROM-ENTITY  IS  A  GENERIC  ENTITY.  IF  THE  SAME  ENTITY 
EXISTS  IN  THE  TO-MODEL  BUT  NOT  THE  RELATION,  THEN  A 
CREATE  CATEGORY  AND  DESCRIBE  COMMANDS  ARE  GENERATED 
FOR  THE  FROM- RELATION . 


ARGUMENTS : 


FROM-EC-NO 

TO-EC-NO 

FROM-EC-NAME 

TO-EC-NAME 

FROM-MOD-NO 

TO-MOD-NO 

KW-FLAG 

DESC-FLAG 

COMBINE-TYPE 

RCNO-LIST 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [9] 
DSPLY [9] 
DSPLY [9] 
RECRD 


INCLUDE  FILES: 


SRVRET 

RELTBL 

ERRPRO 


ROUTINES  CALLED: 


SELECNM 

VERCR 

VERENT 

VERCRNM 

SELACNM 

GENCNME 

CMBRKW 

ADDPARM 

GENDESC 

ERRPRO 
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NAME:  GENGENC 

PURPOSE:  GENERATE  CREATE  CATEGORY  COMMANDS  FOR  MEMBERS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENGENC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Generate  create  category  commands  for  all 
relations  in  which  the  target  entity  is  a  member. 


ARGUMENTS : 

FROM-EC-NO 

DSPLY[S9 (9) ] 

TO-EC-NAME 

DSPLY[X(30) ] 

TO-MOD-NO 

DSPLY[S9 (9) ] 

FROM-MOD-NO 

DSPLY [S9 (9) ] 

KEYWORD-FLAG 

DSPLY [ X ] 

DESC-FLAG 

DSPLY [X] 

MIGRATES-FLAG 

DSPLY [X] 

DEPENT-FLAG 

DSPLY [X] 

DEP-EC-LIST 

RECRD 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

DEPECL 

ERRPRO 

ROUTINES  CALLED: 

SELECNM 

VERENT 

SELACNM 

ADDPARM 

GENCNM2 

COPCKW 

GENDESC 

ERRPRO 
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NAME:  GENICOM 

PURPOSE:  GENERATE  COMMANDS  FOR  INDEPENDENTS. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENICOM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  routine  is  called  when  a  relation 
is  found  in  GENIND. 


ARGUMENTS : 

EC-DEP-NO 

DSPLY[S9 (9) ] 

TO-MOD-NO 

DSPLY [ S9 (9 ) ] 

NO-IND-ENT 

DSPLY [S9 (9) ] 

RC-NAME 

DSPLY [X (30) ] 

MIN-NO-DEP-ENT 

DSPLY (S9 (9) ] 

MAX-NO-DEP-ENT 

DSPLY [S9 (9) ] 

TO-EC-NAME 

DSPLY [X (30) ] 

MIGRATES-FLAG 

DSPLY [X] 

FROM-MOD-NO 

DSPLY [S9 (9) ] 

RC-NO 

DSPLY [ S9 ( 9 ) ] 

FROM-EC-NO 

DSPLY [S9 (9) ] 

KEYWORD-FLAG 

DSPLY [X] 

DESC-FLAG 

DSPLY [X] 

INCLUDE  FILES: 

CHKCDM 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

SELECNM 

VERENT 

GENRNME 

MIGREL 

ADDPARM 

COPRKW 

GENDESC 

ERRPRO 
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NAME:  GENIND 

PURPOSE:  GENERATE  CREATE  RELATION  COMMANDS  FOR  INDEPENDENTS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENIND 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  Generate  create  relation  commands  for  all 
relations  in  which  the  target  entity  is  independent. 


ARGUMENTS : 


FROM-EC-NO 

TO-EC-NAME 

TO-MOD-NO 

FROM-MOD-NO 

KEYWORD-FLAG 

DESC-FLAG 

MIGRATES-FLAG 

DEPENT-FLAG 

DEP-EC-LIST 


DSPLY [S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X] 
DSPLY [X] 
DSPLY [X] 
DSPLY [X] 
RECRD 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

DEPECL 

ERRPRO 

ROUTINES  CALLED: 


FNDEC 

GENICOM 

ERRPRO 
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NAME:  GENKEY 

PURPOSE:  GENERATE  ALTER  ENTITY  ADD  KEY  COMMANDS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENKEY 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


MODIFIED  7/24/89:  ADDED  LOGIC  TO  HANDLE  KEY-TYPES 


ARGUMENTS : 


FROM-EC-NO 

TO-EC-NAME 

COMMENT-FLAG 


DSPLY [S9 (9) ] 
DSPLY [ X ( 3  0 )  ] 
DSPLY [X] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

SELKCM 

ERRPRO 
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NAME:  GENMAP 

PURPOSE:  GENERATE  CREATE  MAP  TO  FIELD,  TO  SET,  OR  DEFINE 
ALGORITHM  COMMANDS 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENMAP 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Either  generate  create  map  to  field  or  create  map 
to  set  or  call  a  routine  to  generate  define 
algorithm  commands 


ARGUMENTS : 


TAG-NAME 

TAG-NO 

DB-NAME 

DB-ID 

RT-ID 

PREF-NO 

MAP-TYPE 

MAP-CLASS 

MAP-CATEGORY 

EC-NO 

MOD-TABLE 


DSPLY[X(30)  ] 
DSPLY [ S9 ( 9 ) ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY [X( 30)  ) 
DSPLY [S9 (9) ] 
DSPLY [X( 10) ] 
DSPLY [ X ( 3  0 )  ] 
DSPLY [X (8) ] 
DSPLY [S9 (9) ] 
RECRD 


INCLUDE  FILES: 


MDTBL 

ERRPRO 


ROUTINES  CALLED: 


GENTODF 

GENTOST 

GENCMPX 

SELECNM 

ADDPARM 

ERRPRO 
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NAME:  GENMENT 

PURPOSE:  CONTROLS  CALLS  TO  GENERATE  CREATE  PARTITION,  UNION, 
MAP  COMMANDS 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENMENT 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  routine  calls  a  routines  to:  generate 
create  partition  commands  and  create  union 
commands  if  specified  by  the  copy  map  command. 
Then  calls  a  routine  to  start  generating  create 
map  commands. 


DSPLY [S9 (9) ] 
DSPLY[X(30)  ] 
RECRD 
DSPLY [X] 
DSPLY [X] 
RECRD 


ERRCDM 

UNTBL 

MDTBL 

ERRPRO 

ROUTINES  CALLED: 


GENEHP 

SELMTAG 

GENEUN 

ERRPRO 


ARGUMENTS : 


EC-NO 

EC-NAME 

UNION-TABLE 

PART-FLAG 

UNION-FLAG 

MOD-TABLE 


INCLUDE  FILES: 
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NAME:  GENMREL 

PURPOSE:  GENERATE  CREATE  MAP  TO  RELATION  COMMANDS 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GENMREL 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


7 


ARGUMENTS : 

IND-EC-NAME 

DSPLY[X(30) ] 

RC-NAME 

DSPLY[X(30) ] 

DEP-EC-NAME 

DSPLY[X(30) ] 

SET-ID 

DSPLY[X(30) ] 

DB-NAME 

DSPLY [ X ( 3  0 ) ] 

RT-ID-MEM 

DSPLY [ X ( 3  0 ) ] 

FIRST-FLAG 

DSPLY [S9 (9) ] 

INCLUDE  FILES: 

ERRPRO 

ROUTINES  CALLED: 

ADDPARM 

ERRPRO 
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NAME:  GENMROJ 

PURPOSE:  GENERATE  A  CREATE  MAP  COMMAND  FOR  RECORD  OUTER  JOIN 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENMROJ 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


RC-NO 

IND-EC-NAME 
RC-NAME 
DEP-EC-NAME 
ROJ- COUNT 
RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY[X(30) ] 
DSPLY[X(30) ] 
DSPLY[S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ADDPARM 

ERRPRO 


ROUTINES  CALLED: 


VERROJ 

ADDPARM 

SELDBRT 

ERRPRO 
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NAME:  GENOA 

PURPOSE:  SELECT  OWNED  ATT  FOR  ENTITY  AND  CREATES  OWNED  ATT  FOR 
CRT  ENT 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  GENOA 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECTS  ALL  THE  OWNED  ATTRIBUTES  FOR  A  GIVEN  ENTITY  AND 
GENERATES  THE  OWNED  ATTRIBUTE  CLAUSE  FOR  A  CREATE  ENTITY 
COMMAND. 


ARGUMENTS : 

EC-NO  DSPLY [S9 (9) ] 

INCLUDE  FILES: 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GENPSB 

PURPOSE:  GENERATE  NDDL  PSB  COMMANDS  FOR  A  GIVEN  HOST  ID 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENPSB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  CPY1HST,  THIS  ROUTINE  GENERATES 
A  'DEFINE  PSB'  COMMAND  FOR  EVERY  PSB  NAME 
FOUND  IN  PSB  TABLE  ASSOCIATED  WITH  A 
GIVEN  HOST  ID. 


ARGUMENTS : 


HOST-ID  DSPLY [X (30) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ADDPARM 

ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GENREC 

PURPOSE:  BEGIN  GENERATION  OF  DEFINE  RECORD  AND  CALL  GENFLD  TO 
GENERATE  REST 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENREC 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  routine  generates  DEFINE  RECORD  <rec-name> 
portion  of  DEFINE  RECORD  command,  and  if  the 
dbms  is  CODASYL  or  TOTAL  calls  SELDBAA  to  select 
all  areas  associated  with  the  db  and  record.  Then 
generates  the  "IN  AREAS  <area-name>  WITH  FIELDS" 
portion  of  the  command.  Then  calls  GENFLD  to  select 
all  fields  of  the  record  and  finish  generating  the 
DEFINE  RECORD  command. 


ARGUMENTS : 


DB-ID 
RT-ID 
RT-NO 
DBMS -NAME 
DESC-FLAG 

INCLUDE  FILES: 


ERRPRO 


DSPLY[S9 (9) ] 
DSPLYfX (30)  ] 
DSPLY [S9 (9)  ] 
DSPLY [X (30) ) 
DSPLY [X] 


ROUTINES  CALLED: 


ADDPARM 

SELDBAA 

GENFLD 

ERRPRO 
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NAME:  GENREL 

PURPOSE:  GENERATE  CREATE  RELATION  . .MIGRATES .. KEYWORD  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENREL 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GENERATES  A  CREATE  RELATION  COMMAND  GIVEN  THE  RELATION  CLASS 
JOIN.  IF  THE  RELATION  IN  THE  FROM-MODEL  IS  COMPLETE, 
GENERATES  THE  MIGRATES  CLAUSE.  IF  KEYWORDS  WERE  NOT  EXCLUDED 
BY  THE  USER,  GENERATES  A  KEYWORD  CLAUSE. 


ARGUMENTS : 


MODEL-NO 

IND-EC-NO 

IND-EC-NAME 

DEP-EC-NO 

DEP-EC-NAME 

RC-NO 

RC-NAME 

IND-ENT 

MIN-DEP-ENT 

MAX-DEP-ENT 

KEYWRD-FLAG 


DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [X (30) ] 
DSPLY [S9 (9) ] 
DSPLY [X (30)  ) 
DSPLY [S9 (9)  ] 
DSPLY [X (30) ) 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) 3 
DSPLY [S9 (9) ) 
DSPLY [9 ] 


ROUTINES  CALLED: 


GENRNME 

MIGREL 

ADDPARM 

GENRKW 


3-761 
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30  September  1990 
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NAME:  GENREL1 

PURPOSE:  CONTROLLING  MODULE  TO  GENERATE  CREATE  RELATION 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GENRE LI 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Controlling  module  to  generate  create  relation 

with  an  optional  migrates  clause  and  alter  entity  add  key 

commands . 


ARGUMENTS : 

MOD-NO 

DSPLY[S9 (9) ] 

IND-EC-NO 

DSPLY [S9 (9) ] 

IND-EC-NAME 

DSPLY[X(30) ] 

DEP-EC-NO 

DSPLY [S9 (9) ] 

DEP-EC-NAME 

DSPLY [X (30) ] 

RC-NO 

DSPLY [S9 (9) ] 

RC-NAME 

DSPLY [X( 30) ] 

NO-IND-ENT 

DSPLY [S9 (9) ] 

MIN-NO-DEP-ENT 

DSPLY [S9 (9) ] 

MAX-NO-DEP-ENT 

DSPLY [S9 (9) ] 

KEYWORD- FLAG 

DSPLY [X] 

MIGRATES-FLAG 

DSPLY [X] 

INCLUDE  FILES: 

CHKCDM 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

GENRNME 

MIGREL 

ADDPARM 

COPRKW 

ERRPRO 

3-762 
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NAME:  GENRKW 

PURPOSE:  SELECT  KEYWORDS  FOR  RELATION  CREATES  KW  PHRASE  FOR 

pom1!?  TJC 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GENRKW 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECTS  ALL  THE  KEYWORDS  FOR  A  GIVEN  RELATION  AND  GENERATES 
THE  KEYWORD  PHRASE  FOR  THE  CREATE  RELATION  COMMAND. 


ARGUMENTS : 


RC-NO  DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GENRNME 

PURPOSE:  FORMAT  THE  CREATE  RELATION  CLAUSE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENRNME 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

Formats  the  CREATE  RELATION  clause. 


ARGUMENTS : 


IND-ENT 

IND-EC-NAME 

RC-NAME 

MIN-DEP-ENT 

MAX-DEP-ENT 

DEP-EC-NAME 


DSPLY [S9 (9) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY [X( 30)  ] 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X( 30)  ) 


ROUTINES  CALLED: 
ADDPARM 
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NAME  t  GENSET 

PURPOSE:  GENERATE  THE  "DEFINE  SET"  NDDL  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENSET 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  GENERATE  THE  "DEFINE  SET"  NDDL  COMMAND 
USING  INPUT  PARAMETER,  SET-NAME  AND 
RETRIEVING  MEMBER/MEMBERS  OF  SET.  IF 
TOTAL  DBMS  GENERATE  LINKED  BY  CLAUSE. 

IF  DESC-FLAG  EQUAL  "Y"  CALL  "GENDESC" 

TO  GENERATE  DESCRIBE  NDDL  COMMAND  FOR  SET 


ARGUMENTS : 


DB-ID 

DBMS -NAME 

DB-NAME 

SET-NO 

SET-NAME 

RT-OWNER 

DESC-FLAG 


INCLUDE  FILES: 


DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY [X( 30)  ] 
DSPLY [S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [X( 30)  ] 
DSPLY [X] 


ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

GETMEMB 

UERROR 

GETDFSL 

GENDESC 

ERRPRO 
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NAME:  GENTODF 

PURPOSE:  GENERATE  TO  FIELD  PORTION  OF  CREATE  MAP  COMMAND 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GENTODF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Select  all  df's  from  pro j ect_data_f ield  given 
db,  rt,  and  tag,  and  for  each  one  selected 
generate  to  field  portion  of  create  map  command 


ARGUMENTS : 


DB-ID 

DB-NAME 

RT-ID 

TAG-NO 


DSPLY[S9 (9) ] 
DSPLY [X (30) ] 
DSPLY[X(30) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GENTOST 

PURPOSE:  GENERATE  TO  SET  PORTION  OF  CREATE  MAP  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENTOST 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 

DB-NAME 

RT-ID 

TAG-NO 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [X ( 30)  ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GENVIEW 

PURPOSE:  COPY  A  USER  SPECIFIED  VIEW  ID  IN  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GENVIEW 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CALLED  FROM  CPYVIEW  AND  GTVIEWS  THIS  SUBPROGRAM  WILL 
GENERATE  A  NDDL  'CREATE  VIEW'  COMMAND. 

THE  USER  CAN  ALSO  GENERATE  A  'DEFINE  ALGORITHM'  COMMAND 
FOR  ANY  DATA  ITEMS  THAT  ARE  INPUT/OUTPUT  PARAMETERS 
TO  A  CONVERSION  ALGORITHM  AND  A  'DESCRIBE*  COMMAND  FOR 
THE  VIEW  ID  IF  ANY  TEXTUAL  DESCRIPTION  EXISTS. 


ARGUMENTS : 


VIEW-ID 

VIEW-NO 

DISTINCT-IND 

DESC-FLAG 

ALG-FLAG 

RET-STATUS 


DSPLY[X(30)  ] 
DSPLY[S9 (9) ] 
DSPLY [X] 
DSPLY [X] 
DSPLY [X] 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ADDPARM 

ERRCDM 

ECTBL 

ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

WRTDITM 

UERROR 

SELECXR 

WRTSLCT 

WRTWHCL 

GENDESC 

GENALG 

ERRPRO 
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NAME:  GETACAL 

PURPOSE;  VERIFY  THE  EXISTANCE  OF  AN  ALIAS  FOR  AN  ATTRIBUTE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GETACAL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  THF  EXISTANCE  OF  AN  ALIAS  NAME  FOR  AN 
ATTRIBUTE  CLASS 

SELECT  THE  ATTRIBUTE, QUALIFYING 
ON  THE  UNIQUE  ATTRIBUTE  NUMBER, 

ALIAS  NAME  TO  BE 

VERIFIED  AND  NAME  TYPE  BEING  "ALIAS'* 


ARGUMENTS : 

AC-NO  DSPLY [S9 (9) ] 

ALIAS-ID  DSPLY [X (30) ] 

INCLUDE  FILES: 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


DELACAL 

UERROR 

ERRPRO 
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NAME:  GETCARD 

PURPOSE:  FETCH  THE  CARDINALITY  VALUES  OF  A  RELATION 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GETCARD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  CALLED  BY  ALTER  RELATION. 
FETCH  THE  CARDINALITY  VALUES  OF  THE  RELATION 
GIVEN  THE  RC-NO 


ARGUMENTS : 


RC-NO 

NO-IND-ENT 

MIN-NO-DEP-ENT 

MAX-NO-DEP-ENT 

RETURN-STATUS 


DSPLY [ S9 (9 ) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  GETCRID 

PURPOSE:  QUERIES  CDM  FOR  INFORMATION  ABOUT  A  RELATION  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GETCRID 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THIS  ROUTINE  DOES  AN  NDML  SELECT  TO  RETRIEVE  INFORMATION 
ABOUT  THE  CATEGORY  RELATION 


ARGUMENTS : 


RC-NO 

GEN-EC-NO 

RC-NAME 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  GETCRNM 

PURPOSE:  RETRIEVE  RELTION  CLASS  NAME,  GENERIC  ENTITY  NAME 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GETCRNM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  RETRIEVES  THE  GENERIC  ENTITY  CLASS  NAME 
RELATION  NAME  - 


DSPLY [S9 (9) ] 
DSPLY [X (30) ] 
DSPLY [X (30) ] 


INCLUDE  FILES: 


ERRPRO 


ARGUMENTS : 


RC-NO 

GEN-EC-NAME 

RC-NAME 


ROUTINES  CALLED: 


GETCRID 

RETRECP 

ERRPRO 
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NAME:  GETDBST 

PURPOSE:  RETURN  INFORMATION  ABOUT  THE  CURRENT  SESSIONS* 
DATABASE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  GETDBST 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  RETURNS  WITH  INFORMATION  ABOUT  THE  DATA  BASE, 
WHICH  IS  OBTAINED  EITHER  FROM  THE  PARSER  LISTS  OR  FROM 
INFORMATION  WHICH  IS  GLOBALLY  AVAILABLE. 

EXTRACT  THE  DATA  BASE  NAME  AND  HOST  NAME  FROM  THE  PARSER 
LIST.  THEN,  AFTER  VERIFYING  THAT  THE  DB  DOES  EXIST,  FETCH 
TKE  DBMS  NAME.  IF  NOTHING  WAS  RETRIEVED  FROM  THE  PARSER 
LIST,  THE  CURRENT  DATA  BASE  IS  ASSUMED.  NEXT,  EXTRACT  THE 
SET  ID  OR  MEMBER/OWNER  ID  DEPENDING  ON  WHETHER  IT  IS  A  SET 
OR  PATH. 


ARGUMENTS : 


DB-ID 

SET-ID 

DB-NAME 

HOST-NAME 

DBMS -NAME 

RETURN-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 )  ] 
DSPLY[X(3G)  ] 
DSPLY [X( 30)  ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


LISTNOS 

ERRPRO 


ROUTINES  CALLED: 


CPFONE 

VERDBAS 

UERROR 

CHGLOBL 

GETGLOB 

CPFNXT 

ERRPRO 
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NAME:  GETDFSL 

PURPOSE:  SELECT  DATA  FIELD  NAME  FOR  SET  LINKAGE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GETDFSL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  DATA  FIELD  NAME  FROM  DF_SET_LINKAGE 
TABLE  IN  ORDER  TO  GENERATE  THE  "LINKED  BY" 
CLAUSE  OF  THE  "DEFINE  SET"  NDDL  COMMAND. 

THIS  CLAUSE  IS  GENERATED  ONLY  IF  THE  DBMS 
OF  THE  DATABASE  IS  "TOTAL". 


ARGUMENTS : 


DB-ID 

RT-MEMBER 

SET-NAME 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [X( 30)  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME l  GET DOM 

PURPOSE:  RETRIEVES  DOMAIN  NUMBER  BASED  ON  TAG  NAME  FOR  AUC 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GETDOM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  retrieve  the  domain  number  for  a 
tag  name  assigned  to  an  attribute  use  class. 


ARGUMENTS : 


EC-NO 

TAG-NAME 

DOM-NO 

TAG-NO 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY [ X ( 3  0 )  ] 
DSPLY [ S9 ( 9 )  ] 
DSPLY [S9 (9) ] 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  GETDRT 

PURPOSE:  FETCH  DATA  BASE,  RECORD  TYPE  INFO  FROM  PARSER  LISTS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GETDRT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 
DBMS -NAME 
RT-ID 
RT-NO 

RET-STATUS 


DSPLY [ S9 (9)  ] 
DSPLY [ X ( 3  0) ] 
DSPLY [X( 30) ] 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 
LISTNOS 


ROUTINES  CALLED: 


CPFONE 

UERROR 

VERDBAS 

VERRT 
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NAME:  GETDTN 

PURPOSE:  RETRIEVE  THE  DATA  TYPE  NAME  OF  AN  ELEMENTARY  FIELD 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GETDTN 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


RETRIEVE  FROM  E LEME NT AR Y_DAT A_F I E LD  THE 
THE  DATA-TYPE-NAME 


ARGUMENTS : 


DF-NO 

OBJ-DATA-TYPE 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY [X (30)  ] 
DSPLY [ X ( 5 )  ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 
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NAME:  GETECAL 

PURPOSE:  VERIFIES  THE  EXISTANCE  OF  AN  ALIAS  FOR  AN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GETECAL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  THE  EXISTANCE  OF  ALIAS  NAME  FOR  AN  ENTITY 

SELECT  THE  ENTITY  CLASS  NAME,  QUALIFYING 

ON  THE  ENTITY  NUMBER  AND  ALIAS  NAME  AS 
NAME  TYPE  "ALIAS". 


ARGUMENTS : 


DSPLY [S9 ( 9 ) ] 
DSPLY [X (30) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


EC-NO 

ALIAS-ID 


ROUTINES  CALLED: 


DELECAL 

UERROR 

ERRPRO 
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NAME:  GETECS 

PURPOSE:  USING  ENTITY  CLASS  VERIFIES  CHECK  MODEL  RULES 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GETECS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  USES  THE  ENTITY  CLASSES  TO  HELP  VERIFYING 
CERTAIN  RULES  BEFORE  A  MODEL  CAN  BE  MARKED  AS  "CHECKED". 


DSPLY [ S9 (9 ) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


MODEL-NO 

NDDL-STATUS 


ROUTINES  CALLED: 


CHKREL 

CHKRELC 

CHKKEYS 

CHKATT 

ADDPARM 

ERRPRO 
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NAME:  GETMEMB 

PURPOSE:  SELECT  ALL  MEMBERS  OF  A  SET  FOR  A  DATABASE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GETMEMB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  THE  MEMBER'S  NAME  AND  REQ/OPT  INDICATOR 
OF  A  SET  FOR  A  GIVEN  DATABASE.  GENERATE  THE 
MEMBER'S  NAME  CLAUSE  OF  THE  "DEFINE  SET" 

NDDL  COMMAND  WITH  A  CALL  TO  ADDPARM . 


ARGUMENTS : 


DB-ID 

SET-NAME 

RT-MEMBER 

RET-STATUS 


DSPLY [ S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY [X (30)  ] 
DSPLY [X (5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GETRCID 

PURPOSE:  QUERIES  CDM  FOR  INFORMATION  ABOUT  A  RELATION  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GETRCID 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DOES  AN  NDML  SELECT  TO  RETRIEVE  INFORMATION 
ABOUT  THE  RELATION  CLASS. 

MODIFIED  5/11/89:  CHANGED  TABLENAME  RELATION_CLASS  TO 
LINK  RELATION 


ARGUMENTS : 


RC-NO 

IND-EC-NO 

RC-NAME 

DEP-EC-NO 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [X (30)  ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  GETRCNM 

PURPOSE:  RETRIEVE  RELTION  CLASS  NAME,  IND  AND  DEP  ENTITY  NAMES 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  GETRCNM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  RETRIEVES  THE  INDEPENDENT  ENTITY  CLASS  NAME 
RELATION  NAME  AND  DEPENDENT  ENTITY  CLASS  NAME  - 


ARGUMENTS : 


RC-NO 

IND-EC-NAME 

RC-NAME 

DEP-EC-NAME 


DSPLY [S9 (9) ] 
DSPLY [X ( 30)  ] 
DSPLY [X( 30)  ] 
DSPLY [X (30)  ] 


INCLUDE  FILES: 
ERRPRO 


ROUTINES  CALLED: 


GETRCID 

RETRECP 

ERRPRO 
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NAME:  GETRDH 

PURPOSE:  RETURN  WITH  CURRENT  SESSIONS1  DATA  BASE  INFO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GETRDH 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  RETURNS  WITH  INFORMATION  ABOUT  THE  DATA  BASE 
WHICH  IS  OBTAINED  EITHER  FROM  THE  PARSER  LISTS  OR  FROM 
INFORMATION  WHICH  IS  GLOBALLY  AVAILABLE. 

EXTRACT  THE  DATA  BASE  NAME  AND  HOST  NAME  FROM  THE  PARSER 
LIST.  IF  NO  INFORMATION  IS  RETRIEVED,  THE  CURRENT  DATA 
BASE  IS  ASSUMED.  ALSO,  EXTRACT  THE  RECORD  TYPE  FROM  THE 
PARSER  LIST. 


ARGUMENTS : 


DB-ID 

RT-ID 

DB-NAME 

HOST-NAME 

DBMS -NAME 

RETURN-STATUS 


INCLUDE  FILES: 


DSPLY[S9 (9)  ] 
DSPLY [X ( 30) ] 
DSPLY [X(30)  ] 
DSPLY [X ( 30)  ] 
DSPLY [X (30) ] 
DSPLY [S9 (9)  ] 


LISTNOS 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 

VERDBAS 

UERROR 

CHGLOBL 

GETGLOB 

ERRPRO 
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NAME:  GTAUCPR 

PURPOSE:  SELECT  AN  AUC  PARAMETER  TO  AN  ALG  CONVERSION 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GTAUCPR 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  WRTALG,  THIS  ROUTINE  WILL  SELECT 
AN  AUC  INPUT/OUTPUT  PARAMETER  TO  AN 
ALGORITHM  CONVERSION. 


ARGUMENTS : 

MOD-ID 

DSPLY[X(10) ] 

MOD- INST 

DSPLY [ S99 ] 

USE-CODE 

DSPLY[X] 

AUC-PARM-NAME 

DSPLY [X ( 30) ] 

EC-NAME 

DSPLY [X (30) ] 

TAG-NAME 

DSPLY [X (30) ] 

AUC-COUNT 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  GTCNTPR 

PURPOSE:  GENERATE  A  'CONSTANT'  PARAMETER  LIST  TO  AN  ALG 
CONVERSION 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  GTCNTPR 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  WRTALG,  THIS  ROUTINE  GENERATES 
A  'CONSTANT'  LIST  FOR  THE  DEFINE  ALGORITHM 
COMMAND. 


ARGUMENTS : 


MOD- ID 
MOD- INST 
USE-CODE 
CNST-COUNT 
RET-STATUS 


DSPLY [X ( 10)  ] 
DSPLY[S99] 
DSPLY [X] 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ADDPARM 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME:  GTDIPR 

PURPOSE:  SELECT  A  DATA  ITEM  PARAMETER  TO  AN  ALG  CONVERSION 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GTDIPR 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION; 


-  CALLED  FROM  WRTALG,  THIS  ROUTINE  WILL  SELECT 
A  DATA  ITEM  INPUT/OUTPUT  PARAMETER  TO  AN 
ALGORITHM  CONVERSION. 


ARGUMENTS : 

MOD- ID 

DSPLY [X ( 10)  ] 

MOD- INST 

DSPLY[S99 ] 

USE-CODE 

DSPLY [X] 

DI-PARM-NAME 

DSPLY [X (30) ) 

VIEW-NAME 

DSPLY [X (30) ] 

DITM-NAME 

DSPLY [ X ( 3  0 ) ] 

DI -COUNT 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY (X ( 5) ] 

INCLUDE  FILES: 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  GTDTTYP 

PURPOSE:  RETURNS  A  TYPE-ID  GIVEN  A  TAG-NO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  GTDTTYP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  SELECT  THE  TYPE-ID 
FROM  USER-DEF-DATA-TYPE  GIVEN  THE  TAG-NO. 


ARGUMENTS : 


TAG-NO 

TYPE-ID 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  GTVIEWS 

PURPOSE:  COPY  ALL  VIEWS  IN  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  PILE:  GTVIEWS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  CPYVIEW,  THIS  ROUTINE  WILL  COPY 
ALL  VIEW  ID'S  RETRIEVED  FROM  THE  SEC 
TABLE  IN  THE  CDM. 


ARGUMENTS : 


DESC-FLAG 

ALG-FLAG 

VIEW-COUNT 

RET-STATUS 


DSPLY[X] 
DSPLY [X] 
DSPLY [S9 (9) ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


GENVIEW 

ERRPRO 
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NAME  Z  HPNLOOK 

PURPOSE:  VERIFIES  ENTITY  AND  PARTITION  NUMBER 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  HPNLOOK 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CALLS  "VERECN"  TO  VERIFY  THAT  USER  ENTERED 
ENTITY  EXISTS,  THEN  CALLS  "VERHPN"  TO 
VERIFY  THAT  USER  ENTERED  PARTITION  NUMBER  EXISTS. 

-  VERIFY  THAT  THE  PARTITION  AND 
ENTITY  EXIST  ON  THE  CDM. 


DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


ERRCDM 

LISTNOS 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 

CONVCPF 

VERECN 

UERROR 

VERHPN 

ERRPRO 


ARGUMENTS : 


HP-NO 

EC-NO 

NDDL-STATUS 
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NAME z  ICOPATT 

PURPOSE:  INTERACTIVE  COPY  ATTRIBUTE,  WITH 
KEYWORDS , ALIAS , DESCRS . 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  ICOPATT 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  CALLED  BY  COPY  ATTRIBUTE.  IT  COPIES  AN 
ATTRIBUTE  EITHER  WITHIN  THE  MODEL  OR  TO  ANOTHER  MODEL.  IT 
ALSO  COPIES  THE  KEYWORDS,  DESCRIPTIONS  AND  ALIASES  IF  THE 
COMMAND  SPECIFIES  THIS  REQUIREMENT. 


ARGUMENTS : 

MOD-NO 

DSPLY [S9 (9) ] 

AC-NAME1 

DSPLY [X ( 30) ] 

AC-NAME2 

DSPLY [X( 30)  ] 

DOM-NO 

DSPLY [S9 (9) ] 

OLD-AC-NO 

DSPLY [S9 (9) ] 

KEYWORD-FLAG 

DSPLY [ 9 ] 

ALIAS-FLAG 

DSPLY [9] 

DESC-FLAG 

DSPLY [9] 

INTER-INTRA 

DSPLY [ X ( 5) ] 

INCLUDE  FILES: 

ERRPRO 

ROUTINES  CALLED: 

BLDATT 

UERROR 

INSACNM 

UWARN 

WRTALI 

WRTACKW 

WRTDESC 

ERRPRO 
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NAME:  I COPENT 

PURPOSE:  INTERACTIVE  COPY  ENTITY  WITH 

ATTRIBUTES , KEYWORDS , ALIAS , DESC 
LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  ICOPENT 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

This  routine  copies  an  entity  either  within  a  model 
or  to  another  model. 


ARGUMENTS : 

MODEL-NO 

DSPLY[S9 (9) ] 

TO-EC-NAME 

DSPLY [X (30) ] 

KW-FLAG 

DSPLY [ 9 ] 

ALIAS-FLAG 

DSPLY [ 9 ] 

DESC-FLAG 

DSPLY (9] 

FROM-EC-NO 

DSPLY [S9 (9) ] 

KEY-FLAG 

DSPLY [9] 

ATTR-FLAG 

DSPLY [9] 

NKEY-FLAG 

DSPLY [9] 

INCLUDE  FILES: 

UNIQENO 

KCLIST 

ERRPRO 

ROUTINES  CALLED: 

GETNNUM 

INSEC 

UERROR 

INSECNM 

WRTECKW 

WRTDESC 

WRTENAM 

COPYAC 

ERRPRO 
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NAME:  INDFROM 

PURPOSE:  RETRIEVES  RELATIONS , DETERMINES  IND  EC  AND  GENERATES 
NDDL 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  INDFROM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THIS  ROUTINE  SELECTS  ALL  THE  RELATIONS  IN  WHICH  THE 
FROM-ENTITY  IS  AN  INDEPENDENT  ENTITY.  IF  THE  SAME  ENTITIES 
EXIST  IN  THE  TO-MODEL,  BUT  NOT  THE  RELATION,  THEN  CREATE 
RELATION  AND  DESCRIBE  COMMANDS  ARE  GENERATED  FOR  THE 
FROM-RELATION . 

MODIFIED  6/19/89:  CHANGED  TABLE  NAME  TO  LINK  RELATION  AND 
CALL  TO  VERLR  FROM  RELATION  CLASS  AND  VERRC 
RESPECTIVELY 

ARGUMENTS : 


FROM-EC-NO 

TO-EC-NO 

FROM-EC-NAME 

TO-EC-NAME 

FROM-MODEL-NO 

TO-MOD-NO 

KW-FLAG 

DESC-FLAG 

COMBINE-TYPE 

RCNO-LIST 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [X (30)  ] 
DSPLY[X (30)  ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ) 
DSPLY [ 9 ] 
DSPLY [9] 
DSPLY [9] 
RECRD 


INCLUDE  FILES: 


SRVRET 

RELTBL 

ERRPRO 


ROUTINES  CALLED: 


SELECNM 

VERLR 

VERENT 

VERRCNM 

GENRNME 

MIGREL 

CMBRKW 

ADDPARM 

GENDESC 

ERRPRO 
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NAME:  INITRDL 

PURPOSE:  INITIALISE  THE  TABLE  WHICH  STORES  A  MODELS  RELATIONS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INITRDL 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


INITRDL  initializes  the  RC-DEPKC  table. 

The  table  contains  information  for  every  relation  in  a  model 
in  sequence  by  level,  rc-no,  and  dep-ec-no. 


ARGUMENTS : 

RC-DEPKC-LIST  RECRD 

INCLUDE  FILES: 

RCDEPKC 
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NAME:  INS1PSB 

PURPOSE:  NDMI.  STATEMENT  TO  INSERT  A  PSB  NAME  /  HOST  ID 
ASSOCIATION 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  INS1PSB 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  PRODUCES  A  INSERT  NDML  STATEMENT  TO 
INSERT  NEW  PSB  NAME/HOST  ID  VALUES 
IN  THE  PSB  TABLE 


ARGUMENTS : 


PSB-NAME 

HOST-ID 

RET-STATUS 


DSPLY[X(8) ] 
DSPLY[X(3  0)  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-794 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INS1R0J 

PURPOSE:  NDML  COMMAND  TO  INSERT  INTO  EC_RT_JOIN  TABLE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  INS1ROJ 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY [ X ( 10)  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


ARGUMENTS: 


RC-NO 

EC-NO 

RT-NO 

JOIN-TYPE 

RET-STATUS 
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NAME:  INSAISM 

PURPOSE:  INSERT  A  CS-IS  MAPPING  IN  AUC_IS_MAPPING 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSAISM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CREATE  AN  AUC  MAPPING  IN  THE  CDM 


ARGUMENTS : 


RT-NO 

TAG-NO 

EC-NO 

PREF-NO 

MAP-TYPE 

MAP-CLASS 

MAP-CATEGORY 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9 )  ] 
DSPLY [X( 10)  ] 
DSPLY [X( 30)  ] 
DSPLY [X (8) ] 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

CHKCDM 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  INSAPRM 

PURPOSE:  INSERT  AN  OCCURRENCE  INTO  MODULE_PARAMETER  TABLE. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSAPRM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  MODID,  PARM_ID,  PARM_NAME 
AND  DATA_TYPE_NAME  INTO 
MODULE  PARAMETER  TABLE. 


ARGUMENTS : 

MOD- ID 

DSPLY [X ( 10) ] 

PARM-ID 

DSPLY[S9 (9) ] 

PARM-NAME 

DSPLY [X( 30) ] 

PARM-PURPOSE 

DSPLY [X (60) ] 

DATA-TYPE-NAME 

DSPLY [X( 30) ] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  INSAREA 

PURPOSE:  NDML  COMMMAND  TO  INSERT  INTO  DATA_BAS E_ARE A  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSAREA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY[S9 (9) ] 
DSPLY [ X ( 30) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ARGUMENTS : 


DB-ID 

AREA-NAME 

RET-STATUS 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  INSAUCS 

PURPOSE:  PROGRAM  NAME  INSAUCS 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  INSAUCS 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CREATE  AN  AUC  SET  MAPPING  IN  THE  CDM 


ARGUMENTS : 


DB-ID 

OWNER-REC-NO 

SET-ID 

TAG-NO 

NEW-AUC-VALUE 

EC-NO 

RET-STATUS 


DSPLY [ S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY [X( 30)  ] 
DSPLY [S9 (9) ] 
DSPLY [X ( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [X ( 5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  INSCOPA 

PURPOSE:  INSERT  CONSTANT  INTO  COMPLEX  MAPPING 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSCOPA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  MOD_ID,  PARM_ID  , ALG_USE_CODE 
AND  CONSTANT  VALUE  INTO  CONST  PARM. 


ARGUMENTS : 


MOD-ID 
PARM- ID 
ALG-USE-CODE 
CONST-VAL 
MOD- INSTANCE 
RET-STATUS 


DSPLY [X ( 10)  ] 
DSPLY[S9 (9)  ] 
DSPLY [X] 
DSPLY [X( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  INSDAA 

PURPOSE:  INSERT  AREA-ID  INTO  DB_AREA_ASSIGNMENT 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSDAA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  INTO  DB_AREA_AS S IGNMENT 
THE  AREA-ID. 

ARGUMENTS : 


DB-ID 
AREA- ID 
RT-ID 
RET-STATUS 


DSPLY [S9 (9)  ] 
DSPLY [X ( 30)  ] 
DSPLY [X (30)  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  INSDB 

PURPOSE:  NDML  COMMAND  TO  INSERT  INTO  DATA_BASE  TABLE 

LANGUAGL:  VAX- 11  COBOL 

SOURCE  FILE:  INSDB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 

DB-ID 

DSPLY [ S9 (9) ] 

DB-NAME 

DSPLY [ X ( 30) ] 

HOST-ID 

DSPLY [X( 30) ] 

DBMS-NAME 

DSPLY [X (30) ] 

INT-NULL-VAL 

DSPLY [X( 30) ] 

CHA-NULL-VAL 

DSPLY [X (30) ] 

NTM-DIR 

DSPLY [XX] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  INSDBH 

PURPOSE:  NDML  STATEMENT  TO  INSERT  IN  DBMS_ON_HOST  TABLE  A 
DBMS/HOST  ASSOCIATI 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  INSDBH 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  PRODUCES  AN  INSERT  NDML  STATEMENT  TO 
INSERT  INTO  THE  DBMS_ON_HOST  TABLE 
A  DBMS  /  HOST  ASSOCIATION. 


ARGUMENTS : 


DBMS -NAME 
HOST-ID 
RET- STATUS 


DSPLY[X(30) ] 
DSPLY [X ( 30)  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


I 
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NAME:  INS DBMS 

PURPOSE:  PRODUCES  NDML  STATEMENT  TO  ADD  DBMS_NAME  AND  DB_MODEL 
TO  THE DBMS  TAB 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  INSDBMS 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

-  PRODUCES  AN  INSERT 

NDML  STATEMENT  TO 

ADD  A  DBMS  NAME  AND 

DB  MODEL  TO  THE 

DBMS  TABLE. 

ARGUMENTS : 

DBMS -NAME 

DSPLY [X (30) ] 

DB-MODEL 

DSPLY [X] 

RET-STATUS 

DSPLY[X(5) ] 

INCLUDE  FILES: 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  INSDESC 

PURPOSE:  INSERT  A  LINE  OF  DESCRIPTION  TEXT  INTO  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSDESC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


EXT  INTO  THE  CDM 

DESCRIPTION  :-  This  routine  will  insert  a  row  into  the  CDM 

table 

desc  text. 


ARGUMENTS : 


OBJECT-TYPE 

DESC-TYPE 

TO-OBJ-NO 

DESC-LINE 

LINE-NO 

RET-STATUS 


DSPLY[X(30)  ] 
DSPLY [X ( 30)  ] 
DSPLY [S9 (9) ] 
DSPLY [X (79 ) ] 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  INSDFPA 

PURPOSE:  INSERT  FIELD  INTO  COMPLEX  MAPPING  ALGORITHM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSDFPA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  MOD_ID,  PARM  ID  , ALG  USE  CODE 
AND  DF  NO  INTO  DF  PARM. 


ARGUMENTS : 

MOD-ID 

DSPLY[X(10) ] 

PARM-ID 

DSPLY [S9 (9) ] 

ALG-USE-CODE 

DSPLY [ X ] 

OBJ-NOl 

DSPLY [S9 (9) ] 

0BJ-N02 

DSPLY [S9 (9) ] 

MOD-INSTANCE 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  INSDI 

PURPOSE:  INSERT  A  RECORD  IN  CDM  TABLE  DATA  ITEM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSDI 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  INSERT  AN  OCCURENCE 
INTO  THE  CDM  TABLE  DATA  ITEM. 


ARGUMENTS : 


VIEW-NO 

DI-NAME 

DATA-TYPE-NAME 

DI-NO 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY [X ( 30)  ] 
DSPLY[S9 (9)  ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  INSDIPA 

PURPOSE:  INSERT  RECORD  INTO  COMPLEX  MAPPING  ALGORITHM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSDIPA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  MODID,  PARM_ID  ,ALG_USE  CODE 
AND  DI  NO  INTO  DI  PARM. 


ARGUMENTS : 

MOD-ID 

DSPLY [X ( 10) ] 

PARM-ID 

DSPLY[S9 (9) ] 

ALG-USE-CODE 

DSPLY [X] 

OBJ -NO 1 

DSPLY [S9 (9) ] 

MOD- INSTANCE 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY [X( 5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  INSDOM 

PURPOSE:  INSERT  DOMAIN  CLASS  OCCURRENCE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSDOM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-INSERT  INTO  THE 

DOMAINCLASS  TABLE 

DOMAIN  NUMBER  AND  DOMAIN  NAME. 


ARGUMENTS : 


DOM-NAME 

DOM-NO 

NDDL-STATUS 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 


DSPLY[X(30) ] 
DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 


ROUTINES  CALLED: 
ERRPRO 


3-809 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSDSCT 

PURPOSE:  INSERT  USER-DEFINED  DESCRIPTION  TYPE  IN  THE  CDM 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  INSDSCT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


YPE 

(DESC_TYPE) 

VALUES  ( : DESC-TYPE) ; 


ARGUMENTS : 


DESC-TYPE  DSPLY [X ( 30) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-810 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSDT 

PURPOSE:  INSERT  OCCURRENCE  OF  USER  DEFINED  DATA  TYPE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSDT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-INSERT  A  RECORD  INTO  THE  U S ER_DE F_DATA_T Y PE 
TABLE.  ALSO  RETRIEVES  THE  NEXT  AVAILABLE 
USER  DEFINED  DATA  TYPE  NUMBER  (USDF_DT_NO) 
FROM  CDM  FOR  INSERT. 


ARGUMENTS : 


DATA-TYPE-NAME 

DOMAIN-NO 

TYPE-ID 

MAX-SIZE 

NO-OF-DEC 

DATA-TYPE-IND 

NDDL-STATUS 


DSPLY[X(30) ] 
DSPLY[S9 (9)  ] 
DSPLY [ X ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [XXXX] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

UNIQENO 

ERRPRO 

ROUTINES  CALLED: 


GETNNUM 

UERROR 

ERRPRO 


3-811 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSECRF 

PURPOSE:  STORE  VIEW  NO  AND  EC  NO  IN  VIEW  EC  XREF 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSECRF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  STORE  EACH  ENTITY  CLASS 
ASSOCIATION  WITH  A  GIVEN  VIEW  NUMBER  IN  THE  CDM* 


ARGUMENTS : 


VIEW-NO 

EC-NO 

RET-STATUS 


DSPLY [S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY [X (5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-812 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME :  INSECRT 

PURPOSE:  CREATES  AN  ENTITY  TO  RECORD  MAPPING  IN  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSECRT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ARGUMENTS : 


EC-NO 
RT-NO 
RET -STATUS 


ROUTINES  CALLED: 
ERRPRO 


3-813 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSHST 

PURPOSE:  PRODUCES  NDDL  STATEMENT  TO  ADD  A  HOST  ID  AND  HOST  NO 
TO  THE  HOST  TAB 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  INSHST 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 
HOST  TABLE. 


ARGUMENTS : 


HOST- ID 
HOST-NO 
RET-STATUS 


DSPLY[X(30)  ] 
DSPLY [S9 (9)  ] 
DSPLY [X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-814 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSKC 

PURPOSE:  INSERT  INTO  THE  CDM  TABLE  KEY  CLASS. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  INSKC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  INTO  THE  CDM  TABLE  KEY_CLASS ,  A  KEY 
CLASS  OCCURENCE  FOR  A  SPECIFIED  ENTITY. 


ARGUMENTS : 

KC-NO 

DSPLY[S9 (9) ] 

KC-NAME 

DSPLY [X ( 30) ] 

EC-NO 

DSPLY[S9 (9) ] 

KC-TYPE 

DSPLY [X( 10) ] 

RET-STATUS 

DSPLY[X(5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 

3-815 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSPARM 

PURPOSE:  INSERT  PARAMETER  LIST  INTO  MODULE_PARAMETER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSPARM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  MOD_ID,  PARM_ID  PARM_NAME , 
PARMPURPOSE ,  PARM_DATA_T Y PE_N AME 
INTO  MODULE_PARAMETER  TABLE  FROM  EXTERNAL 
TABLE 


ARGUMENTS : 


P ARM-TABLE  RECRD 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-816 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INS PART 

PURPOSE:  INSERT  HORI ZONTAL_PART  OCCURENCE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSPART 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  INTO  THE  HORI ZONTAL_PART  TABLE 
ENTITY ,  HORIZONTAL  PARTITION  AND 
RECOR  TYPE  NUMBERS. 


ARGUMENTS : 


EC-NO 

RT-NO 

HP-NO 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


3-817 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSPCB 

PURPOSE:  NDML  COMMAND  TO  INSERT  INTO  PSB  PCB  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSPCB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 

PSB-NAME 

PSB-SEQ-NO 

KEY-FB-LEN 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ X ( 8 )  ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-818 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSPDF 

PURPOSE:  PROGRAM  NAME  INSPDF 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  INSPDF 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  A  RECORD  INTO  PROJECT  DATA  FIELD 


ARGUMENTS : 


DB-ID 

RT-ID 

DF-ID 

TAG-NO 

EC-NO 

RT-NO 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


DSPLY [S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [X( 30) ] 
DSPLY [ S9 ( 9 ) ) 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X( 5) ] 


ROUTINES  CALLED: 
ERRPRO 


3-819 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSPDI 

PURPOSE:  INSERT  A  RECORD  IN  CDM  TABLE  PROJECT  DATA_ITEM 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  INSPDI 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  INSERT  A  RECORD  INTO 
THE  CDM  TABLE  PROJECT  DATA  ITEM. 


ARGUMENTS : 

VIEW-NO 

DSPLY[S9 (9) ] 

EC-NO 

DSPLY[S9 (9) ] 

DI-NO 

DSPLY[S9 (9)  ] 

PRIM-SECND 

DSPLY [X] 

TAG-NO 

DSPLY[S9 (9) ] 

RET-STATUS 

DSPLY [X( 5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 

3-820 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSPWRD 

PURPOSE:  NDML  COMMAND  TO  INSERT  INTO  DB_PASSWORD  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSPWRD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 

DB-PASS 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


3-821 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSQCRF 

PURPOSE:  STORE  AN  OCCURENCE  IN  THE  VIEW_QUALFIY  CRITERIA  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSQCRF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  STORE  EACH  INSTANCE  OF  A 
QUALIFICATION  TEXT  ITEM  AS  PART  OF  'WHERE'  CLAUSE  FOR 
'CREATE  VIEW*  COMMAND. 


ARGUMENTS : 

VIEW-NO 

DSPLY[S9 (9) ] 

QC-TEXT-NO 

DSPLY[S9 (9)  ] 

QC-CONDITION-NO 

DSPLY[S9 (9) ] 

QC-TYPE 

DSPLY [ 9 ] 

QC-TEXT-ID 

DSPLY[X] 

QC-TEXT 

RECRD 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 

3-822 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSQCTG 

PURPOSE:  STORE  EACH  ASSOCIATION  OF  AN  ATTRIBUTE  WITH  A  VIEW 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSQCTG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  STORE  EACH  ASSOCIATION 

OF  AN  ATTRIBUTE  WITH  A  GIVEN  VIEW  NUMBER  IN  THE  CDM. 


ARGUMENTS : 


VIEW-NO 

EC-NO 

TAG-NO 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-823 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSRNG 

PURPOSE:  INSERT  NEW  RANGES  INTO  CDM  DB 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  INSRNG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERTS  INTO  THE 

DOMAI N_RANGE  TABLE  WITH  VERIFIED 

RANGES. 


ARGUMENTS : 


DOM-NO 

DOM-RANGE 

RET-STATUS 


DSPLY[S9 (9)  ] 
RE  CRD 

DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-824 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME !  INSRTPA 

PURPOSE:  INSERT  RECORD  INTO  COMPLEX  MAPPING  ALGORITHM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSRTPA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  MOD_ID,  PARM_ID  , ALG_USE_CODE 
AND  RT  NO  INTO  RT  PARM. 


ARGUMENTS: 


MOD-ID 

PARM-ID 

ALG-USE-CODE 

OBJ-NOl 

MOD-INSTANCE 

RET -STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


DSPLY [X ( 10) ] 
DSPLY [S9 (9) ] 
DSPLY [X] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


ERRPRO 


3-825 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSRTYP 

PURPOSE:  INSERT  RECORD  NAME  INTO  RECORD_TYPE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSRTYP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

-  INSERT  INTO  RECORD_TYPE  THE  RECORD  NAME  (RT_ID) 


ARGUMENTS : 


DB-ID 

RT-ID 

RT-NO 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY [X (30)  ] 
DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-826 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSRULE 

PURPOSE:  INSERTS  DISTRIBUTED  RULES  FOR  AN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSRULE 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


EC-NO 

DISTR-UPDT-RULE 

DISTR-RETR-RULE 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY[X(8)  ] 
DSPLY [X ( 8 )  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

CHKCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-827 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSSCH 

PURPOSE:  NDML  COMMAND  TO  INSERT  INTO  SCHEMA_NAMES  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSSCH 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 

SCHEMA-NAME 

SUBSCHEMA-NAME 

DB-LOCATION 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY [X ( 30) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY [X( 30) ] 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-828 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSSMOD 

PURPOSE:  INSERT  AN  OCCURRENCE  INTO  SOFTWARE  MODULE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  INSSMOD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  ALL  META  DATA  FIELDS  INTO 
SOFTWARE  MODULE  TABLE. 


ARGUMENTS : 

MOD-ID 

DSPLY[X(10) ] 

LANG-NAME 

DSPLY [X ( 10) ] 

MOD-TITLE 

DSPLY[X(30) ] 

MOD-ABSTRACT 

DSPLY [X( 60) ] 

LATEST-REV- DATE 

DSPLY [X( 9) ] 

STATUS-IND 

DSPLY [X] 

RET-STATUS 

DSPLY [X( 5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 

3-829 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSTGPA 

PURPOSE:  INSERT  TAG  INTO  COMPLEX  MAPPING  ALGORITHM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSTGPA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  MOD_ID,  PARM_ID  ,ALG_USE  CODE 
AND  AUC  NO  INTO  AUC  PARM. 


ARGUMENTS : 

MOD- ID 

DSPLY [X ( 10) ] 

PARM- ID 

DSPLY[S9 (9) ] 

ALG-USE-CODE 

DSPLY [X] 

OBJ-NOl 

DSPLY [S9 (9) ] 

MOD- INSTANCE 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY [X( 5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 

3-830 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSUNIN 

PURPOSE:  INSERT  AN  OCCURRENCE  INTO  ECRTUD  TABLE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  INSUNIN 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  INTO  ECRTUD  TABLE  THE  VALUES 
RECORD  NUMBER 

ENTITY  NUMBER,  DATA  FIELD  NUMBER, 
UNION  VALUE  AND 
COMPARISON  OPERATOR. 


ARGUMENTS : 


RT-NO 

EC-NO 

DF-NO 

UNION-VALUE 
COMPARISON-OP 
RET -STATUS 


DSPLY [S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X( 30) ] 
DSPLY [XX] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-831 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSVAL 

PURPOSE:  INSERT  NEW  DOMAIN  VALUES  INTO  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSVAL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-INSERT  INTO  THE 

DOMAIN_VALUE  TABLE  WITH  VERIFIED 
VALUES . 


ARGUMENTS : 


DOM-NO 

DOM-VALUE 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-832 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME i  INSVIEW 

PURPOSE:  INSERT  A  VIEW  NAME  IN  CDM  TABLE  USER_VIEW 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  INSVIEW 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  INSERT  A  VIEW  NAME  INTO 
THE  CDM  TABLE  USER  VIEW. 


ARGUMENTS : 


VIEW-NO 

VIEW-NAME 

DISTINCT-IND 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X (30)  ] 
DSPLY[X] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-833 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSVMOD 

PURPOSE:  INSERT  VERIFICATION  MODULE  NAME  INTO  CDM  DATABASE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  INSVMOD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  INSERT  INTO 
VERIFMODULE  TABLE  WITH 
VERIFICATION  MODULE  NAME  AFTER 
THE  VERIFICATION  MODULE  HAS  BEEN 
GENERATED. 


MODIFIED  MAR  16,  1988  TO  SUPPORT  FIOP'S 


ARGUMENTS : 


DOM-NO 

CRT-APNAME 

VMODFILE 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(10)  ] 
DSPLY [X (80)  ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-834 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 
NAME:  KCINH 

PURPOSE:  INSERT  AUC  AND  AN  IAUC  OCCURRENCE  FOR  THE  SPECIFIC 
TAG 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  KCINH 
SOURCE  FILE  TYPE:  PCO 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  THIS  MODULE  WILL  SELECT  EACH  DEPENDENT  ENTITY 
WHERE  THE  KEY  HAS  MIGRATED  TO.  VERIFY  THAT 

THE  TAG  NAME  TO  BE  PLACED  IN  THIS  ENTITY  DID 
NOT  PREVIOUSLY  EXIST.  THEN  INSERT  AN  AUC 
OCCURANCE  AND  AN  IAUC  OCCURANCE  FOR  THIS  TAG. 

-  THIS  ROUTINE  WILL  SELECT  EACH  DEPENDENT  ENTITY 
WHERE  THE  KEY  HAS  MIGRATED  TO.  VERIFY  THAT  THE 
TAG  NAME  TO  BE  PLACED  IN  THIS  ENTITY  DID  NOT 
PREVIOUSLY  EXIST  USING  THE  VERATAG  ROUTINE. 

IF  IT  DOES  NOT  CURENTLY  EXIST  THEN  INSERT  AN 
AUC  OCCURRENCE  USING  THE  INSAUC  ROUTINE  AND  AN 
IAUC  OCCURRENCE  USING  THE  INSIAUC  ROUTINE. 


ARGUMENTS : 


KC-NO 

EC-NO 

TAG-NO 

TAG-NAME 

AC-NO 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY [X( 30)  ] 
DSPLY [S9 (9)  ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


UNIQENO 

ERRCDM 

CHKCDM 

EOD 

ERRPRO 


ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTOC 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

UERROR 

SQLCLS 

SQLAD1 


3-835 


PS  620341100 
30  September  1990 


SQLFCH 

VERATAG 

GETNNUM 

INSAUC 

INSIAUC 

ERRPRO 


DOCGROUP  PS41100  Module  Documentation 
NAME:  KCMADD 

PURPOSE:  DRIVER  MODULE  TO  PROCESS  AN  ADD  KEY  CLASS  MEMBER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  KCMADD 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  IS  THE  DRIVER  ROUTINE  WHICH  WILL  PROCESS 
ADD  KEY  CLASS  MEMBER  CLAUSE  OF  THE  NDDL  COMMAND 
ALTER  ENTITY. 

-  THIS  ROUTINE  WILL  PROCESS  THE  ADD  KEY  CLASS 

MEMBER  CLAUSE  BY  VERIFYING  THAT  THE  TAG 

EXISTS 

IN  THE  ENTITY  AND  THEN  VERIFYING  THAT  IT  DOES 
NOT  ALREADY  EXIST  IN  THE  KEY.  FINALLY ,  IT 
WILL  ADD  THE  TAG  INTO  THE  KEY  AND  MIGRATE 
THIS  TAG  TO  ALL  THE  DEPENDENT  ENTITIES. 


ARGUMENTS : 


EC-NO 

KC-NO 

KC-NAME 

TAG-NAME 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [X ( 30) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


VERATAG 

VERTKCM 

UERROR 

INSKCM 

KCINH 

ERRPRO 


3-836 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  KCMDRP 

PURPOSE:  DRIVER  ROUTINE  TO  PROCESS  DROP  KEY  CLASS  MEMBER 
CLAUSE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  KCMDRP 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  IS  THE  DRIVER  MODULE  TO  PROCESS 
THE  DROP  KEY  CLASS  MEMBER  CLAUSE  OF  THE  NDDL 
COMMAND  ALTER  ENTITY. 

-  AFTER  VERIFYING  THAT  THE  TAG  EXISTS  IN  THE 
ENTITY ,  VERIFY  THAT  THE  TAG  IS  A  MEMBER 

OF  THE  KEY  CLASS  BEING  ALTERED.  ALSO,  IT 
MUST  BE  VERIFIED  THAT  THE  TAG  BEING  DROPPED 
IS  NOT  THE  ONLY  TAG  IN  THE  KEY.  FINALLY, 

DELETE  THE  TAG  FROM  THE  KEY  CLASS  AND 
DELETE  ALL  INHERITED  ATTRIBUTES  OF  THIS 
TAG. 


ARGUMENTS: 


EC-NO 

KC-NO 

KC-NAME 

TAG-NAME 

INCLUDE  FILES: 


DSPLY[S9 (9) ] 
DSPLY [S9 (9 )  ] 
DSPLY[X(30)  ] 
DSPLY [X (30) ] 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


VTAGAUC 

VERTKCM 

DELAKCM 

DMIGKKC 

UERROR 

ERRPRO 
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NAME:  KCMSUBS 

PURPOSE:  THIS  IS  THE  DRIVER  ROUTINE  TO  HANDLE  KEY 
SUBSTITUTIONS 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  KCMSUBS 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  IS  THE  DRIVER  ROUTINE  TO  HANDLE 
ALL  KEY  SUBSTITUTIONS. 

-  THIS  ROUTINE  WILL  FIRST  INITIALIZE  ALL  THE 
LISTS  THAT  ARE  USED  TO  HOLD  THE  INFORMATION 
FOR  UPDATING  THE  KEY  CLASSES.  THEN,  BASED 

ON  EVALUATION  OF  THE  NDDL  COMMAND  ALTER 
ENTITY,  IT  WILL  CALL  VARIOUS  SUBROUTINES 
TO  POPULATE  THESE  LISTS  AND  THEN  PROCESS 
THE  CHANGES  SPECIFIED  TO  THE  KEY  CLASS. 


ARGUMENTS : 


EC-NO 

KC-NO 

KC-NAME 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY[X(30) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


LISTNOS 

ERRCDM 

ADDTGLS 

DRPTGLS 

UPDTGLS 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 

UERROR 

VERATAG 

VERTKCM 

CPFNXT 

FETITAG 

KEYSUB 

ERRPRO 


3-838 
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NAME:  KEYADS 

PURPOSE:  DRIVER  MODULE  TO  PROCESS  ADD,  DROPS  AND  SUBSTITUTIONS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  KEYADS 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  IS  THE  DRIVER  MODULE  TO  PROCESS 
THE  ALTER  KEY  CLAUSE  OF  THE  NDDL  COMMAND, 

ALTER  ENTITY. 

MODIFIED  6/21/89:  TO  NOT  ALLOW  PRIMARY  KEYS  INVOLVED  IN 
CATEGORY  RELATIONS  TO  BE  ADDED  OR  SUBTITUTED 
TO  . 


-  THIS  MODULE  WILL  DETERMINE  WHAT  SUB  ROUTINES 
TO  CALL  AFTER  EVALUATING  THE  VARIOUS  LISTS 
THAT  HAVE  BEEN  ASSEMBLED  FROM  THE  PARCER 
TO  PROCESS  THE  ALTER  ENTITY  COMMAND. 


ARGUMENTS: 

EC-NO 

DSPLY[S9{9) ] 

KC-NAME 

DSPLY [ X ( 3  0 ) ] 

KC-NO 

DSPLY [S9 (9) ] 

INCLUDE  FILES: 

LISTNOS 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

CPFONE 

LOWUPP 

CHKCAT 

KCMSUBS 

KCMADD 

CPFNXT 

KCMDRP 

UERROR 

ERRPRO 
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NAME:  KEY LOOK 

PURPOSE:  RETRIVES  KEYCLASS  NAME  AND  NUMBER  BASED  ON  TAG  NO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  KEYLOOK 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


MODIFIED  7/24/89:  ADDED  LOGIC  TO  HANDLE  KEY-TYPE 


ARGUMENTS : 

NEW-EC-NO 

DSPLY[S9 (9)  ] 

NEW-TAG-NO 

DSPLY[S9 (9) ] 

OLD-TAG-NO 

DSPLY[S9 (9) ] 

OLD-EC-NO 

DSPLY [S9 (9)  ] 

KC-LIST 

RECRD 

RETURN-STATUS 

DSPLY [S9 (9) ] 

INCLUDE  FILES: 

SRVRET 

UNIQENO 

KCLIST 

ERRPRO 

ROUTINES  CALLED: 

TERKEY 

ERRPRO 

3-840 
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NAME  X  KEYSUB 

PURPOSE:  UPDATE  THE  CDM  WITH  ADD,  DROPS  AND  SUBSTITUTIONS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  KEYSUB 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  MODULE  IS  THE  DRIVER  MODULE  FOR  UPDATING  THE 
CDM  WITH  ADDS,  DROP,  AND  SUBSTITUTIONS  TO  THE  KEY 
CLASSES.  IT  USES  THREE  TEMPORARY  TABLES  FOR  HOLDING 
THE  VARIOUS  INFORMATION  USED  FOR  THE  UPDATES. 

-  THIS  ROUTINE  WILL  CALL  VARIOUS  MODULES  IN  ORDER 
TO  UPDATE  THE  CDM  WITH  KNEW  KEY  CLASS  INFO. 

IT  USES  THREE  TABLES  THAT  HAVE  BEEN  PREVIOUSLY 
POPULATED  WITH  THE  SPECIFIC  INFORMATION  FOR  THE 
UPDATES  SPECIFIED  IN  THE  NDDL  COMMAND  ALTER 
ENTITY. 


ARGUMENTS: 

EC-NO 

DSPLY[S9 (9) ] 

KC-NO 

DSPLY[S9 (9) ] 

ADD-TAG-LIST 

RECRD 

DROP-TAG-LIST 

RE CRD 

UPD-TAG-LIST 

RECRD 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

ADDTGLS 

DRPTGLS 

UPDTGLS 

ERRPRO 

ROUTINES  CALLED: 

MODAAUC 

MODAKCM 

MODIAUC 

ERRPRO 
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NAME:  KYSTRUC 

PURPOSE:  DRIVER  POPULATE  C  LISTS  BY  ADDING  KEY  INFO  FOR  DEP-EC 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  KYSTRUC 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


FOR  EACH  LEVEL  OF  RELATIONS  IN  FROM-MODEL  FIND 
THE  KEY  CLASSES  FOR  THE  DEPENDENT  ENTITY  WHICH 
CONTAIN  ATTRIBUTES  INHERITED  VIA  THE  RELATION 


ARGUMENTS : 


MODEL-NO  DSPLY ( S9 ( 9 ) ] 

RC-DEPKC-LIST 

DEP-EC-LIST 

DEPENT-FLAG 


INCLUDE  FILES: 


ERRCDM 

RCDEPKC 

DEPECL 

ERRPRO 

ROUTINES  CALLED: 


ECSTRUC 

DPKCLST 

ERRPRO 
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NAME:  LDECLST 

PURPOSE:  LOAD  AN  INCOMING  EC-NO  INTO  THE  DEP-EC-LIST  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  LDECLST 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DSPLY [ S9 (9) ] 
RE  CRD 

DSPLY [S9 (9) ] 


INCLUDE  FILES: 


CHKCDM 

ERRCDM 

DEPECL 

ERRPRO 


EC-NO 

DEP-EC-LIST 

RETURN-STATUS 


ROUTINES  CALLED: 


UERROR 

ERRPRO 
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NAME:  LOADESC 
PURPOSE:  LOADESC 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  LOADESC 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


LOADESC  WILL  TAKE  THE  DESCRIPTION  FROM  A  EDIT  FILE 
AND  HAVE  IT  LOADED  INTO  THE  CDM 


EXT  WILL  BE  DELETED  FROM  THE  CDM 

2)  THE  UPDATED  /  NEW  TEXT  WILL  BE  ADDED 

3)  THE  EDIT  FILE  WILL  BE  DELETED 


ARGUMENTS : 

OBJECT-TYPE 

DSPLY[X(30)  ] 

OBJECT-NO 

DSPLY[S9 (9)  ] 

DESC-TYPE 

DSPLY[X(30) ] 

INCLUDE 

FILES: 

ERRCDM 

ERRFS 

ERRPRO 

ROUTINES 

CALLED: 

WRDSFL 

EDITCI 

FILEINS 

OPNFIL 

CLSFIL 

ERRPRO 
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NAME:  MALTOAT 

PURPOSE:  Generate  the  alter  entity  command  add  owned  attr. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MALTOAT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  is  called  from  the  prc  mgenoa 

and  generates  the  nddl  commands  necessary 
to  alter  an  entity  and  add  its  owned  attributes. 

Given  the  tag-no  and  the  ec-name,  generate  the 
alter  entity  add  owned  attribute  command. 


ARGUMENTS : 

EC-NAME 

DSPLY[X(30) ] 

NKEY-FLAG 

DSPLY [9 ] 

OWNED-AC 

DSPLY [ X ( 3  0 ) ] 

OA-COUNTER 

DSPLY [S9 (9) ] 

TAG-NO 

DSPLY [S9 (9) ] 

INCLUDE  FILES: 

CHKCDM 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

VERKCM 

ADDPARM 

ERRPRO 
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NAME:  MAPADF 

PURPOSE:  PROGRAM  NAME  MAPADF 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MAPADF 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  ADDMAP,  THIS  PROGRAM  CALLS 
SUBPROGRAMS  WHICH  ENFORCE  AUC  TO  DATA 
FIELD  MAPPING  RULES.  IF  NO  RULES  BROKEN , 
THE  MAPPING  IS  PERFORMED. 


ARGUMENTS : 


DB-NO 

REC-NAME 

DF-NAME 

TAG-NAME 

EC-NAME 

DB-NAME 

PREF-NO 

EC-NO 

MAP-CLASS 

MAP-CATEGORY 

INCLUDE  FILES: 


DSPLY[S9 (9)  ] 
DSPLY [ X ( 3  0 )  ] 
DSPLY[X(30)  ] 
DSPLY [X( 30)  ) 
DSPLY[X(30)  ) 
DSPLY [X ( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X (30) ] 
DSPLY [X (8) ] 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


VERMAPD 

UERROR 

VERTAG 

VERDTFL 

VERECRT 

VALDTN 

VERAIMR 

INSAISM 

INS PDF 

ERRPRO 
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NAME:  MAPAREC 

PURPOSE:  CALLS  SUBPROGRAMS  WHICH  ENFORCE  ENTITY  TO  RECORD 
MAPPING 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  MAPAREC 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


DB-NAME  DSPLY [ X ( 3  0 ) ] 
REC-NAME  DSPLY [ X ( 3  0 ) ] 
EC-NO  DSPLY [S9 (9)] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


VERDB 

UERROR 

VERRT 

INSECRT 

ERRPRO 


3-847 
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NAME:  MAPAROJ 

PURPOSE:  CALLS  SUBPROGRAMS  WHICH  ENFORCE  RECORD  OUTER  JOIN 
MAPPING 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MAPAROJ 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY [X ( 30) ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ARGUMENTS : 


DB-NAME 

REC-NAME 

RC-NO 


ROUTINES  CALLED: 


VERDB 

UERROR 

VERRT 

VERRCT 

VERCRTC 

VALROJ 

SELCRDN 

VERECRT 

INS1ROJ 

ERRPRO 


3-848 
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NAME:  MAPASET 

PURPOSE:  PROGRAM  NAME  MAPASET 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MAPASET 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  ADDMAP,  THIS  PROGRAM  CALLS 
SUBPROGRAMS  WHICH  ENFORCE  AUC  TO  SET 
MAPPING  RULES.  IF  NO  RULES  BROKEN, 

THE  MAPPING  IS  PERFORMED. 


ARGUMENTS : 


DB-NO 

SET-NAME 

TAG-NO 

PREF-NO 

HZ -PART-FLAG 

STRING-VALUE 

TAG-NAME 

DB-NAME 

EC-NO 

MAP-CLASS 

MAP-CATEGORY 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY [S9  (9)  ] 
DSPLY [X] 
DSPLY [X( 30) ] 
DSPLY [X ( 30) ] 
DSPLY [X ( 30) ] 
DSPLY [S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [X (8) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


VERSMS 

UERROR 

VERRCBS 

VERRT 

VERECRT 

CHKAUCV 

VOMAPS 

VERAIMR 

INSAISM 

INSAUCS 

ERRPRO 


3-849 
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NAME:  MGENENT 

PURPOSE:  GENERATE  A  CREATE  ENTITY. .OWNED  ATTRIBUTE. . KEYWORD 
COMMAND 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MGENENT 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GENERATES  A  CREATE  ENTITY  COMMAND  GIVEN  THE  ENTITY  CLASS 
NO.  AND  NAME. 


ARGUMENTS : 

EC-NO 

EC-NAME 

KEYWRD-FLAG 

ATT-FLAG 

NKEY-FLAG 


ROUTINES  CALLED: 

ADDPARM 

MGENOA 

COPEKW 


DSPLY [S9 (9) ] 
DSPLY [X(30) ] 
DSPLY [9] 
DSPLY [9] 
DSPLY [9] 


3-850 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  MGENOA 

PURPOSE:  SELECT  OWNED  ATT  FOR  ENTITY  AND  CREATES  OWNED  ATT  FOR 
CRT  ENT 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MGENOA 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECTS  ALL  THE  OWNED  ATTRIBUTES  FOR  A  GIVEN  ENTITY  AND 
GENERATES  THE  OWNED  ATTRIBUTE  CLAUSE  FOR  A  CREATE  ENTITY 
COMMAND. 


ARGUMENTS : 


EC-NO 

EC-NAME 

NKEY-FLAG 


DSPLY [S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [9] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


MALTOAT 

ADDPARM 

ERRPRO 


3-851 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  MGENREL 

PURPOSE:  GENERATE  CREATE  RELATION  . .MIGRATES .. KEYWORD  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MGENREL 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GENERATES  A  CREATE  RELATION  COMMAND  GIVEN  THE  RELATION  CLASS 
JOIN.  IF  THE  RELATION  IN  THE  FROM-MODEL  IS  COMPLETE, 
GENERATES  THE  MIGRATES  CLAUSE.  IF  KEYWORDS  WERE  NOT  EXCLUDED 
BY  THE  USER,  GENERATES  A  KEYWORD  CLAUSE. 


ARGUMENTS : 


MODEL-NO 

IND-EC-NO 

IND-EC-NAME 

DEP-EC-NO 

DEP-EC-NAME 

RC-NO 

RC-NAME 

IND-ENT 

MIN-DEP-ENT 

MAX-DEP-ENT 

KEYWRD-FLAG 

MIGRATES-FLAG 


DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [S9 (9)  ] 
DSPLY [X( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [X( 30) ) 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY[9] 
DSPLY [9] 


ROUTINES  CMTiED* 


GENRNME 

MIGREL 

ADDPARM 

GENRKW 
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NAME:  MIGREL 

PURPOSE:  GENERATE  A  MIGRATES  CLAUSE  FOR  A  CREATE  RELATION 
COMMAND 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MIGREL 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GENERATE  A  MIGRATES  CLAUSE  FOR  A  CREATE  RELATION  COMMAND  IF 
THE  RELATION  IN  THE  FROM-MODEL  IS  COMPLETE. 


ARGUMENTS : 


MODEL-NO 

IND-EC-NO 

RC-NO 

DEP-EC-NO 


DSPLY [S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 


ROUTINES  CALLED: 


VERRCC 

NEXTKC 

ADDPARM 

SELIAUC 
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NAME:  MKRNLS1 

PURPOSE:  FETCH  LIST  OF  RENAME  PAIRS  FOR  CATEGORY 
MEMBER. .SET. .CLAUSE 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MKRNLS1 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GETS  THE  LIST  OF  RENAME  PAIRS  SPECIFIED  BY  THE 
USER  ON  THE  "SET  RENAME-LIST"  PORTION  OF  AN 
"CATEGORY  MEMBER  SET"  CLAUSE.  THE  SET  PHRASE  IS 
OPTIONAL.  IF  OMITTED,  NUM-OF-PAIRS  IS  SET  TO 
ZERO. 


MODIFICATION  HISTORY  -  1/18/90  BY  RICHARD  STEWART 
ERROR  OF 

CALLING  CPFNXT  AN  ADDITIONAL  TIME 


ARGUMENTS : 


RECRD 

DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 


REN-LIST 

KC-NO 

RETRN-CODE 


INCLUDE  FILES: 


LISTNOS 

ERRCDM 

RENLIST 

ROUTINES  CALLED: 


CPFVAL 

UERROR 

CPFNXT 

VERKCMG 


FIXED 
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NAME:  MKRNLST 

PURPOSE:  FETCH  LIST  OF  RENAME  PAIRS  FOR  MIGRATES .. SET. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  MKRNLST 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


GETS  THE  LIST  OF  RENAME  PAIRS  SPECIFIED  BY  THE 
USER  ON  THE  "SET  RENAME-LIST"  PORTION  OF  AN 
"ADD  MIGRATES"  CLAUSE.  THE  SET  PHRASE  IS 
OPTIONAL.  IF  OMITTED,  NUM-OF-PAIRS  IS  SET  TO 
ZERO. 


ARGUMENTS : 


REN- LI ST 
KC-NO 

RETRN-CODE 


RECRD 

DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


LISTNOS 

ERRCDM 

RENLIST 

ROUTINES  CALLED: 


CPFONE 

UERROR 

CPFNXT 

VERKCMG 


.  CLAUSE 
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NAME:  MODAAUC 

PURPOSE:  UPDATE  THE  TAG  NAME  GIVEN  THE  TAG  NUMBER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODAAUC 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  MODULE  WILL  UPDATE  THE  TAG  NAME  GIVEN 
THE  TAG  NUMBER  IN  ATTRIBUTE  USE  CLASS  FOR  A 
GIVEN  ENTITY. 

-  UPDATE  THE  TAG  NAME  OF  ATTRIBUTE  USE  CLASS 
GIVEN  THE  OLD  TAG  NUMBER  AND  THE  NEW  TAG  NAME. 


ARGUMENTS : 


NEW-TAG-NAME 

OLD-TAG-NUMBER 

RET-STATUS 


DSPLY[X(30) ] 
DSPLY [S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


SQLSCA 
SQLBS1 
SQLSCH 
SQLSCC 
SQLTFL 
SQLOPN 
SQLOSQ 
SQLADR 
SQLAB1 
SQLEXE 
SQLWNR 
U ERROR 
ERRPRO 
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NAME:  MODACEC 

PURPOSE:  ALTER  OWNERSHIP  OF  AN  ATTRIBUTE  TO  A  NEW  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODACEC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  MODACEC  WILL  ALTER  THE  OWNERSHIP  OF  AN 
ATTRIUBTE  TO  A  NEW  ENTITY-  UPDATE  THE  CDM  TABLE 
OWNED  ATTRIBUTE. 


ARGUMENTS : 


AC-NO-OLD 

EC-NO-NEW 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [X ( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  MODAISM 

PURPOSE:  PROGRAM  NAME  '  MODAISM 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MODAISM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CHANGE  AN  AUC  MAPPING  PREFERENCE 
IN  THE  CDM. 


ARGUMENTS : 


TAG-NO 

PREF1-NO 

MAP-CLASS 

MAP-CATEGORY 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY[X(8)  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

CHKCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  MODAKCM 

PURPOSE:  UPDATE  KCM  TO  SHOW  THAT  A  KEY  CLASS  HAS  A  NEW  MEMBER. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODAKCM 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  UPDATE  THE  CDM  TABEL 
KEY_CLASS_MEMBER  TO  REFLECT  THAT  A  KEY 
CLASS  HAS  A  NEW  MEMBER,  REPLACING  AN 
EXISTING  KEY  CLASS  MEMBER. 

-  THIS  ROUTINE  WILL  USE  EMBEDDED  SQL  TO  UPDATE 
THE  TABLE  KEY_CLASS_MEMBER  BY  QUALIFYING 

ON  THE  KEY  CLASS  NUMBER  AND  THE  TAG-NO  TO 
BE  REPLACED. 


ARGUMENTS : 


KC-NO 

ADD-TAG-NO 

DROP-TAG-NO 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLADP 

SQLAB1 

SQLEXE 

SQLWNR 

UERROR 

ERRPRO 
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NAME:  MODATT 

PURPOSE:  DRIVER  TO  GENERATE  NDDL  COMMANDS  FOR  ATTRIBUTES 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODATT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  select  all  attributes  NOT  OWNED 
in  the  from  model  call  a  routine  and  generate 
nddl  commands  to  create  the  attribute,  its 
keywords,  alias,  and  descriptions  in  the  to-model. 

-  After  selecting  all  the  relevant  info 
this  routine  calls  a  cobol  routine 
to  generate  the  actual  nddl  commands. 


ARGUMENTS : 


DSPLY [S9 (9) ] 
DSPLY [ X ( 3  0 )  ] 
DSPLY[93 
DSPLY [ 9 ] 
DSPLY [ 9  3 


INCLUDE  FILES: 


SRVRET 

ERRPRO 

ROUTINES  CALLED: 


CREATTR 

ERRPRO 


FROM-MOD-NO 
FROM-MOD-NAME 
KEYWORD- FLAG 
ALIAS-FLAG 
DESC-FLAG 
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NAME:  MODAUCE 

PURPOSE:  MODIFY  THE  ATTRIBUTE  USE  OCCURENCE  TO  A  DIFFERENT 
ENTITY 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MODAUCE 
SOURCE  FILE  TYPE:  PCO 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  MODAUCE  WILL  MODIFY  THE  ATTRIBUTE  USE  OCCURENCE 

TO  A  DIFFERENT  ENTITY.  UPDATE  THE  CDM  TABLE  ATTRIBUTE  USE  CL 


ARGUMENTS : 


TAG-NO-OLD 

EC-NO-NEW 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLWNR 

UERROR 

ERRPRO 
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NAME:  MODDBAL 

PURPOSE:  MODIFY  HOST  ID,  NULL  VALUE,  NTM  DIRECTORY  OF  DATABASE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODDBAL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ROUTINE  TO  MODIFY  THREE  VARIABLES  IN  THE  DATAJBASE  TABLE: 
HOST  ID,  NULL  VALUE,  AND  NTM  DIRECTORY. 

UPDATE  THE  HOST,  NULL,  AND  NTM  VALUES  IN  THE  CDM  TABLE 
DATA  BASE. 


ARGUMENTS : 


DB-ID 

HOST- ID 

DBMS -NAME 

INT-NULL-VALUE 

CHA-NULL-VALUE 

NTM-DIR 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY [X (30) ) 
DSPLY [X ( 30) ] 
DSPLY [X( 30) ] 
DSPLY [X( 30) ] 
DSPLY [XX] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  MODENT 

PURPOSE:  GENERATE  THE  NDDL  COMMANDS  TO  CREATE  AN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODENT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  control  the  processing 

of  generating  the  nddl  commands  to  create 
an  entity  its  keyword,  owned  attributes, 
aliases,  and  descriptions  in  the  to  model. 


ARGUMENTS : 

FROM-MODEL-NO 

DSPLY[S9 (9) ] 

FROM-MODEL-NAME 

DSPLY[X(30) ] 

KEYWORD-FLAG 

DSPLY [ 9 ] 

ALIAS-FLAG 

DSPLY [ 9 ] 

DESC-FLAG 

DSPLY[9] 

ATT- FLAG 

DSPLY [9] 

NKEY-FLAG 

DSPLY [9] 

DEP-FLAG 

DSPLY [9] 

DEP-EC-LIST 

RECRD 

INCLUDE  FILES: 

ERRCDM 

SRVREV 

DEPECL 

ERRPRO 

ROUTINES  CALLED: 

WRTENT 

ERRPRO 
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NAME:  MODIAUC 

PURPOSE:  UPDATE  IAUC  TO  SHOW  THAT  A  TAG  IS  INH  FROM  A  NEW  AUC. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODIAUC 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  UPDATE  THE  CDM  TABEL 
INHERITED_ATT_USE  TO  REFLECT  THAT  A  TAG 
IS  INHERITED  FROM  A  NEW  ATTRIBUTE  USE 
CLASS.  THE  KEY  CLASS  ASSOCIATED  REMAINS 
THE  SAME. 

-  THIS  ROUTINE  WILL  USE  EMBEDDED  SQL  TO  UPDATE 
THE  TABLE  INHERITED_ATT_USE__CLASS  BY  QUALIFYING 
ON  THE  KCM-TAG-NO  TO  BE  REPLACED. 


ARGUMENTS : 

KC-NO 

DSPLY [S9 (9) ] 

ADD-KCM-TAG-NO 

DSPLY[S9 (9) ] 

DROP-KCM-TAG-NO 

DSPLY [S9 (9 ) ] 

RET-STATUS 

DSPLY [X(5) ] 

INCLUDE  FILES: 

ERRCDM 

EOD 

ERRPRO 

ROUTINES  CALLED: 

SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLWNR 

UERROR 

ERRPRO 
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NAME:  MODKC 

PURPOSE:  SELECT  AND  STORE  KEY  CLASS  INFO  FOR  A  GIVEN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODKC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECTS  THE  KEY  CLASSES  AND  KEY  CLASS  MEMBERS  FOR  EACH  ENTITY 
IN  THE  FROM-MODEL  AND  CALLS  A  ROUTINE  TO  BUILD  THE  UNBOUNDED 
KEY-CLASS-LIST  STRUCTURE. 


ARGUMENTS : 


FROM-MOD-NO 

DEP-FLAG 

DEP-EC-LIST 


DSPLY[S9 (9) ] 

DSPLY[9] 

RECRD 


INCLUDE  FILES: 


SRVRET 

DEPECL 

ERRPRO 


ROUTINES  CALLED: 


FNDEC 

AKCROW 

ERRPRO 
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NAME:  MODKCNM 

PURPOSE:  UPDATE  THE  KEY  CLASS  NAME  GIVEN  THE  KEY  CLASS  NUMBER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODKCNM 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  MODULE  WILL  UPDATE  THE  KEY  CLASS  NAME 
OF  KEY  CLASS  GIVE  THE  KEY  CLASS  NUMBER 
USING  EMBEDDED  SQL. 

-  USING  THE  OLD  KEY  CLASS  NUMBER,  THIS  PROCEDURE 
UPDATE  OR  CHANGE  THE  KEY  CLASS  NAME  SPECIFIED 

IN  THE  NDDL  COMMAND  ALTER  ENTITY. 


ARGUMENTS: 


KC-NO 

NEW-KC-NAME 

RET-STATUS 


DSPLY [S9 (9)  ] 
DSPLY [X (30)  ) 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLWNR 

UERROR 

ERRPRO 
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NAME :  MODLOC 

PURPOSE:  NDML  COMMAND  TO  MODIFY  DATA  BASE  LOCATION  FOR  A 
CODAS YL  DB 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MODLOC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  THE  NDML  COMMAND  TO  MODIFY  THE  DATA  BASE 
LOCATION  IN  THE  CDM  SCHEMA_NAMES  TABLE. 

BASED  ON  THE  DATA  BASE  ID  UPDATE  THE  DATA  BASE 
LOCATION  VALUE. 


ARGUMENTS : 


DB-ID 

DB-LOCATION 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  MODOATT 

PURPOSE:  DRIVER  TO  GENERATE  NDDL  COMMANDS  FOR  OWNED  ATTRIBUTES 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODOATT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  select  all  owned  attributes 
in  the  from  model  call  a  routine  and  generate 
nddl  commands  to  create  the  attribute,  its 
keywords,  alias,  and  descriptions  in  the  to-model. 

-  After  selecting  all  the  relevant  info 
this  routine  calls  a  cobol  routine 
to  generate  the  actual  nddl  commands. 


ARGUMENTS : 


FROM-MOD-NO 

FROM-MOD-NAME 

KEYWORD-FLAG 

ALIAS -FLAG 

DESC-FLAG 

NKEY-FLAG 

DEP-FLAG 

DEP-EC-LIST 


DSPLY [S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [9] 
DSPLY[9] 
DSPLY [9] 
DSPLY [9] 
DSPLY [9] 
RECRD 


INCLUDE  FILES: 


SRVRET 

DEPECL 

ERRPRO 


ROUTINES  CALLED: 


WRTOAT 

ERRPRO 
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NAME !  MODPCB 

PURPOSE:  NDML  COMMAND  TO  MODIFY  PCB  FOR  AN  IMS  DB 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODPCB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  PRODUCES  AN  NDML  STATEMENT  TO  UPDATE  THE 
PSB  NAME,  PSB  SEQUENCE  NUMBER,  AND  THE  KEY  FEEDBACK 
LENGTH  ASSOCIATED  WITH  AN  IMS  DATABASE  IN  THE  PSBPCB 
TABLE  OF  THE  CDM. 

UPDATE  THE  PSB  NAME,  PSB  SEQUENCE  NUMBER,  AND  KEY  FEEDBACK 
LENGTH 

BASED  ON  THE  DATABASE  ID. 


DSPLY[S9 (9) ] 
DSPLY[X(8) ] 
DSPLY[9 (5)  ] 
DSPLY[9 (5)  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


ARGUMENTS: 


DB-ID 

PSB-NAME 

PSB-SEQ-NO 

KEY-FEEDBACK-LEN 

RET-STATUS 
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NAME l  MODPWRD 

PURPOSE:  NDML  COMMAND  TO  MODIFY  DATABASE  PASSWORD  FOR  AN 
ORACLE  DB 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MODPWRD 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  THE  NDML  COMMAND  TO  MODIFY  THE  DATA  BASE 
PASSWORD  IN  THE  CDM  DBPASSWORD  TABLE. 

BASED  ON  THE  DATA  BASE  ID  UPDATE  THE  DATA  BASE 
PASSWORD  VALUE. 


ARGUMENTS : 


DB-ID 

DB-PASSWORD 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  MODRCKC 

PURPOSE:  SELECTIVELY  POPULATE  THE  RC-DEPKC-LIST  TABLE  BY 
ADDING 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MODRCKC 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


FOR  EACH  LEVEL  OF  RELATIONS  IN  FROM-MODEL  FIND 
THE  KEY  CLASSES  FOR  THE  DEPENDENT  ENTITY  WHICH 
CONTAIN  ATTRIBUTES  INHERITED  VIA  THE  RELATION 
AND  CALL  ROUTINES  TO  POPULATE  THE  RC-DEPKC-LIST 
TABLE. 

MODIFIED  9/7/89:  CHANGED  BECAUSE  OF  RC-DEPKC-LIST  TABLE  CHANGES 
THAT  WERE  REQUIRED  BECAUSE  OF  CATEGORY  RELATIONS 


ARGUMENTS: 

MODEL-NO  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


KEY LI ST 

ERRCDM 

RCDEPKC 

DEPECL 

ERRPRO 


ROUTINES  CALLED: 


INITRDL 

STARTBL 

FNDEC 

SELIKEY 

ERRPRO 
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NAME:  MODREL 

PURPOSE:  GENERATE  NDDL  COMMANDS  TO  CREATE  RELATIONS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MODREL 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


GENERATE  NDDL  COMMANDS  TO  CREATE  RELATIONS  FOR  EACH 
LEVEL  IN  FROM-MODEL.  MIGRATE  ATTRIBUTES  AND  ADD  THE 
KEY  CLASSES  FOR  EACH  DEPENDENT  ENTITY  IN  THE  LEVEL. 

ARGUMENTS : 


MODEL-NO 

MODEL-NAME 

KEYWORD- FLAG 

DESC-FLAG 

RC-DEPKC-LIST 

MIGRATES-FLAG 

KEY-FLAG 

DEP-FLAG 

HOLD-RC-INDEX 

RETURN-STATUS 


DSPLY [S9  (9)  ] 
DSPLY [X ( 30) ) 
DSPLY [9] 
DSPLY [ 9 ] 
RECRD 
DSPLY [9] 
DSPLY [ 9 ] 
DSPLY [9] 
DSPLY [9999] 
DSPLY [ S9 ( 9 ) ) 


INCLUDE  FILES: 


KEYLIST 

ERRCDM 

EOD 

RCDEPKC 

ERRPRO 


ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLAD1 

SQLFCH 

UERROR 

FNDRCEC 

SELECNM 

MGENREL 

GENDESC 

ALLKEY 

ERRPRO 
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NAME:  MODREL1 

PURPOSE:  MODREL1 :  FOR  EACH  LEVEL  OF  RELATIONS  IN  FROM-MODEL 
GENERATE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MODREL1 
SOURCE  FILE  TYPE:  PCO 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


ARGUMENTS : 


MODEL-NO 

MODEL-NAME 

KEYWORD- FLAG 

DESC-FLAG 

RC-DEPKC-LIST 

MI GRATES -FLAG 

KEY-FLAG 

DEP-FLAG 

HOLD-RC- INDEX 

RETURN-STATUS 

INCLUDE  FILES: 


ERRCDM 

EOD 

RCDEPKC 

ERRPRO 

ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLAD1 

SQLFCH 

UERROR 

SELECNM 

SELACNM 

GENCNM1 

ADDPARM 

COPCKW 

GENDESC 

FNDRCEC 

ALLKEY 

ERRPRO 


DSPLY [ S9  ( 9 )  ] 
DSPLY [X ( 30) ] 
DSPLY [9] 
DSPLY [9] 
RECRD 
DSPLY [9] 
DSPLY [ 9 ] 
DSPLY [ 9 ] 
DSPLY [9999] 
DSPLY [ S9 (9) ] 
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NAME:  MODRELA 

PURPOSE:  MODRELA:  DRIVER  MODULE  FOR  EACH  LEVEL  OF  RELATIONS  IN 
FROM-MODEL 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  MODRELA 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


MODEL-NO 

MODEL-NAME 

KEYWORD-FLAG 

DESC-FLAG 

RC-DEPKC-LIST 

MIGRATES-FLAG 

KEY-FLAG 

DEP-FLAG 

RETURN-STATUS 


DSPLY [S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [ 9 ] 
DSPLY [9] 
RECRD 
DSPLY [9] 
DSPLY [9] 
DSPLY [9] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

EOD 

RCDEPKC 

ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

MODREL1 

MODREL 

ERRPRO 
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NAME:  MODSCH 

PURPOSE:  NDML  COMMAND  TO  MODIFY  SCHEMA  &  SUBSCHEMA  FOR  A 
CODASYL  DB 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  MODSCH 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  THE  NDML  COMMAND  TO  MODIFY  THE  SCHEMA 
NAME  AND  THE  SUBSCHEMA  NAME  IN  THE  CDM  SCHEMA_NAMES  TABLE. 
BASED  ON  THE  DATA  BASE  ID  UPDATE  THE  SCHEMA  NAME  AND 
SUBSCHEMA  NAME  VALUES. 


ARGUMENTS : 


DB-ID  DSPLY[S9 (9) ] 
SCHEMA-NAME  DSPLY [ X ( 3  0 ) ] 
SUBSCHEMA-NAME  DSPLY [ X ( 3  0 ) ] 
RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  MRGMOD 

PURPOSE:  MERGE  TWO  IDEF  MODELS  INTO  ONE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MRGMOD 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  CONTROLS  THE  PROCESSING  LOGIC  FOR  THE  MERGE 
MODEL  COMMAND  NDDL  STATEMENTS  ARE  GENERATED  ON  A  FILE  TO 
POPULATE  MODEL-3  WITH  EVERYTHING  CONTAINED  IN  MODEL-1  AND 
MODEL-2,  IF  THREE  MODEL  NAMES  ARE  LISTED.  IF  ONLY  TWO  MODELS 
ARE  LISTED  ON  THE  COMMAND,  MODEL-1  IS  POPULATED  WITH 
EVERYTHING  IN  MODEL-2,  COMBINING  IF  NEEDED. 


INCLUDE  FILES: 


LISTNOS 

ECLIST 

RCDEPKC 

ERRPRO 


ROUTINES  CALLED: 


CPFONE 

CPFNXT 

EXCFLAG 

VERMOD 

UERROR 

NFLOPEN 

ADDPARM 

MRGMOD 1 

BLKCLST 

MRGNODE 

MRGMOD2 

NFLCLOS 

ERRPRO 
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NAME:  MRGM0D1 

PURPOSE:  COPY  MODEL-1  INTO  A  NEW  MODEL  (MODEL-3) 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  MRGMOD1 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  GENERATES  THE  NDDL  STATEMENTS  TO  POPULATE 
MODEL-3  (TO-MODEL)  WITH  THE  ENTITIES,  ATTRIBUTES,  RELATIONS, 
KEY  CLASS  IS  ETC.  FROM  MO DEL- 1. 


ARGUMENTS : 


MOD-NO 1 

MOD-NAME 1 

KW-FLAG 

ALIAS-FLAG 

DESC-FLAG 

RETURN-STATUS 

RC-DEPKC-LIST 


DSPLY [S9 (9) ] 
DSPLY [X ( 30)  ] 
DSPLY [9] 
DSPLY [9] 
DSPLY [9] 
DSPLY [S9 (9) ] 
RECRD 


INCLUDE  FILES: 


RCDEPKC 

ERRPRO 

ROUTINES  CALLED: 


ALLATT 

ALLENT 

BLKCLST 

TOPNODE 

ALLREL 

ERRPRO 
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NAME:  MRGMOD2 

PURPOSE:  PROCESS  REMAINING  MODEL_2  ENTITIES. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  MRGMOD2 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CONTROLS  THE  LOGIC  FOR  PROCESSING  THE  REMAINING  MODEL 
2  ENTITIES,  ETC.  IN  HIERARCHICAL  ORDER  BY  LEVEL  AND 
DEP_EC_NO,  GENERATE  THE  NDDL  STATEMENTS  TO  EITHER 
COMBINE  ENTITIES  OR  RELATIONS  IN  MODEL_2 . 

CHANGED  FROM  A  . PC  TO  A  .PCO  TO  .COB  -  LOGIC  REQUIRED  NOW 
ALLOWS 

THIS  MODULE  TO  BE  A  .COB  -  9/19/89 


ARGUMENTS : 


MOD-NO 1 

MOD-NAME 1 

M0D-N02 

MOD-NAME2 

KEYWORD- FLAG 

ALIAS-FLAG 

DESC-FLAG 

RC-DEPKC-LIST 

EC— LIST 

RETURN-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY [ 9 ] 
DSPLY [ 9 ] 
DSPLY [ 9 ] 
RECRD 


INCLUDE  FILES: 


ERRCDM 

EOD 

KEY LI ST 

DEPECL 

RCDEPKC 

ECLIST 

ERRPRO 


ROUTINES  CALLED: 


BLRCKC 

SELECNM 

VERENT 

CKDUPEC 

GENENT1 

GETRCID 
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VERRCNM 

MODREL 

ADDPARM 

GETCRID 

VERCRNM 

MODREL1 

ERRPRO 
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NAME:  N COMMIT 

PURPOSE:  PERFORM  THE  NDML  COMMIT 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  NCOMMIT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


IN 


WHEN  CALLED  THIS  ROUTINE  WILL  ISSUE  THE  NDML  COMMIT 
ORDER  TO  POST  ANY  CHANGES  MADE  BY  THE  REQUEST 
PROCESSORS . 


ARGUMENTS : 


RETCODE  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  NEWTAGM 

PURPOSE:  POPULATE  TABLE  NEW-TAG-MIGRATION-TBL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  NEWTAGM 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  MODULE  WILL  POPULATE  THE  TABLE 
NEW-TAG-MIGRATION-TBL  WITH  THE  FOLLOWING  INFO: 

a)  KEY  MIGRATION  TO  ALL  DEPENDENT  ENTITIES  VIA  A 
RELATION  OF  A  SPECIFIED  KEY  OF  THE  INDEPENDENT 
ENTITY. 

b)  A  COUNT  OF  HOW  MANY  TIMES  THE  KEY  MIGRATES  TO  THE 
SAME  DEPENDENT  ENTITY. 


ARGUMENTS : 


KC-NO-OF-IND-ENT  DSPLY [ S9 ( 9 ) ] 

NEW-TAG-MIGRATION-TBL  RECRD 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

CHKCDM 

EOD 
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NEWTAGT 

ERRPRO 


.  ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTOC 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLAD1 

SQLFCH 

SQLCLS 

ERRPRO 
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NAME:  NROLBAK 

PURPOSE:  PERFORM  THE  NDML  ROLLBACK 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  NROLBAK 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHEN  CALLED  THIS  ROUTINE  WILL  ISSUE  THE  NDML  ROLLBACK 
IN  ORDER  TO  UNDO  ANY  CHANGES  MADE  BY  THE  REQUEST 
PROCESSORS . 


ARGUMENTS : 


RETCODE  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  OLDTAGM 

PURPOSE:  POPULATE  THE  TABLE  OLD-TAG-MIGRATION-TABLE. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  OLDTAGM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  OLDTAGM  POPULATES  OLD-TAG-MIGRATION-TABLE 
WITH  THE  FOLLOWING  INFO,  IF  ANY: 

1)  THE  DEPENDENT  ENTITIES  THAT  A  SPECIFIED  AUC  MIGRATES  TO, 
VIA  A  RELATION  AND  KEY  CLASS. 

2)  IF  THE  DEPENDENT  ENTITY  IT  MIGRATES  TO  IS  THE  SAME  AS  THE 
NEW  OWNER  ENTITY  (EC-NO-NEW) , 

a)  INCREMENT  THE  MIGRATES  COUNTER 

b)  DETERMINE  IF  THIS  INHERITED  AUC  IS  A  KEY  MEMBER  IN  THE 
DEPENDENT  ENTITY,  AND  IF  IT  IS  KEY,  RETURN  THE  INFOR¬ 
MATION  IN  THE  OUTPUT  PARAMETERS. 

MODIFIED  6/22/89  :  TO  INCLUDE  CATEGORY  RELATIONS 


ARGUMENTS : 


EC-NO-OLD 

EC-NO-NEW 

TAG-NO-OLD 

LINK-OLD-MIG-TO-NEW-COUNT 

CAT-OLD-MIG-TO-NEW-COUNT 

OLD-TAG-MIGRATION-TBL 

KEY - FOUND- IN-NEW-OWNER-FLAG 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY [S9  (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
RE  CRD 
DSPLY [X) 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

OLDTAGT 

ERRPRO 


ROUTINES  CALLED: 


SELKCMA 

UERROR 

ERRPRO 
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NAME:  ORA LON 

PURPOSE:  LOGIN  TO  ORACLE  (COMPATIBILTY  WITH  SQL  LOGON) 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  ORA LON 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


PERFORM  CONNECT 


DSPLY [X ( 20) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ARGUMENTS : 


CDMUID 

RET-STATUS 


ROUTINES  CALLED: 


SQLSCA 

SQLADR 

SQLLOl 

ERRPRO 
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NAME:  OUTDESC 

PURPOSE:  PROGRAM  NAME  OUTDESC 
LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  OUTDESC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  OUTDESC  RETRIEVES  DESCRIPTION  INFORMATION 
FROM  THE  CDM. 

8/8/88:  MODIFIED  TO  SUPPORT  FIOPS 

ARGUMENTS : 


OBJECT-TYPE  DSPLY [ X ( 3  0 ) ] 

DESC-TYPE  DSPLY [ X ( 3  0 ) ] 

INCLUDE  FILES: 


ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


OPNFIL 

CLSFIL 

OUTFIL 

ERRPRO 
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NAME:  P1FROM 

PURPOSE:  CREATE  A  VIEW  USING  A  SINGLE  ENTITY  CLASS ( 
ES-CS-MAPPING) 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  P1FROM 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFIES  THE  RELATION  STRUCTURE  AND  POPULATE  THE 
ES  TO  CS  MAPPING  WHEN  CREATING  A  VIEW  USING  A 
SINGLE  ENTITY  CLASS. 


ARGUMENTS : 


VIEW-NO 

VIEW-DATA-ITEM-LIST 
VIEW-RETRIEVE-LIST 
VIEW- FROM- LIST 
CS-QUAL-CRITERIA-LIST 
RET-STATUS 


DSPLY[S9 (9) ] 

RECRD 

RECRD 

RECRD 

RECRD 

DSPLY[X (5) ] 


INCLUDE  FILES: 


ERRCDM 

VWDI 

VWRETR 

VWFROM 

CSQCLST 

ROUTINES  CALLED: 


ALLVIEW 

SMVIEW 

CHKDOMS 
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NAME:  PNOFROM 

PURPOSE:  PROCESS  A  VIEW  COMMAND  FOR  MULTIPLE  ENTITY  CLASSES 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  PNOFROM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


PNOFROM  VERIFIES  THE  ENTITY  CLASS  AND  DOMAIN  FOR 
ALL  DATA  ITEMS  NAMED  IN  THE  DATA  ITEM  CLAUSE  OF 
CREATE  VIEW  COMMAND  WHEN  MORE  THAN  1  ENTITY  CLASS 
IS  SELECTED. 


ARGUMENTS : 


DSPLY [S9 (9) ] 

RECRD 

RECRD 

DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

VWRETR 

VWDI 

ROUTINES  CALLED: 


UERROR 

VERENT 

CHKDOMS 


VIEW-NO 

VIEW-RETRIEVE-LIST 
VIEW-DATA- ITEM-LIST 
RET-STATUS 
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NAME:  PRESMIG 

PURPOSE:  PRESERVES  MIGRATION  OF  KEYS 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  PRESMIG 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  WHEN  THE  OLD  OWNER  ENTITY  MIGRATES  TO 

THE  NEW  OWNER,  AND  THE  INHERITED  ATTRIBUTE  ALREADY  BELONGS 
IN  THE  KEY  SPECIFIED  BY  THE  USER,  FURTHER  MIGRATIONS 
OF  THIS  INHERITED  ATTRIBUTE  WILL  BE  PRESERVED.  THIS 
PRESERVATION  IS  ALSO  NECCESSARY  IF  THE  USER  DID  NOT 
SPECIF  A  KEY  IN  THE  "AS  MEMBER  CLAUSE".  ALL 
OTHER  MIGRATIONS  OF  THE  OLD  OWNER  TO  EVERY  OTHER 
DEPENDENT  ENTITY  WILL  BE  DROPPED. 


ARGUMENTS : 


OLD-TAG-MIGRATION-TBL 

TAG-NO-OLD 

EC-NO-NEW 

KC-NO-NEW 

KC-NAME-LST 

RET-STATUS 

INCLUDE  FILES: 


RECRD 

DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X ( 30) ] 
DSPLY [X (5) ] 


CHKCDM 

ERRCDM 

OLDTAGT 

ERRPRO 


ROUTINES  CALLED: 


DELKCMT 

DELAUCL 

UWARN 

DMIGKRC 

DELIAUC 

DMIGKKC 

DELAKCM 

UERROR 

ERRPRO 
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NAME:  PROCDT 

PURPOSE:  PROCESS  DATA  TYPES  FOR  DOMAINS 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  PROCDT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


MODIFIED  8/9/89  LOGIC  WAS  ADDED  TO  HANDLE  NEW  DATA  TYPES 
( INT , SMALLINT , REAL, DOUBLE  PRECISION , CHAR , 

VARCHAR, DECIMAL, DEC) 

12/19/89  -  LOGIC  ADDED  FOR  NEW  DATATYPE  OF  OVERPUNCH 


ARGUMENTS : 


DOM-NO  DSPLY [ S9 ( 9 ) ] 

DOM-NAME  DSPLY [  X  (  3  0  )  ] 

STD-DT-CHANGED  DSPLY [X] 


INCLUDE  FILES: 


LISTNOS 

ERRCDM 


ROUTINES  CALLED: 


CPFONE 

LOWUPP 

CPFNXT 

CPFCOR 

VERTYP 

UERROR 

ADDDT 

DRPDT 

ALTDT 
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NAME:  PROCPRM 

PURPOSE:  PROCESS  PARAMETER  TO  BE  ADDED  TO  PARAMETER  LIST 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  PROCPRM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  RETRIEVE  PARAMETERS  TO  BE  DDED  FROM 
PARSER  AND  INSERT  THEM  INTO  THE  CORRECT 
POSITION  OF  THE  PARAMETER  LIST. 


ARGUMENTS : 


MOD-ID 

AFT-BEF-VALUE 

PARM-TABLE 

NO-OF-TIMES 

RET-STATUS 


DSPLY [ X ( 10)  ] 
DSPLY [X ( 6)  ] 
RECRD 

DSPLY [S9 (9) ] 
DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

ISTNOS 

ROUTINES  CALLED: 


CPFNXT 

CPFVAL 

ADDPRMS 

LOWUPP 

UERROR 
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NAME:  RACKW2 

PURPOSE:  COMPARES  ATTRIBUTE  CLASS  KEYWORDS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RACKW2 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DOES  A  SEQUENTIAL  SEARCH  COMPARING  ATTRIBUTE 
CLASS  KEYWORDS  OF  TWO  MODELS  TO  FIND  A  MATCH.  IF  A  MATCH 
IS  FOUND,  IT  IS  REPORTED  TO  THE  USER. 


ARGUMENTS : 


MODEL-NO  DSPLY [ S  9 ( 9 ) ] 

KW-TABLE  RECRD 


INCLUDE  FILES: 


SRVRET 

KWDTBL 

ERRPRO 


ROUTINES  CALLED: 


RETRACP 

ADDPARM 

ERRPRO 


3-892 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  RCCHEK 

PURPOSE:  CHECK  IF  A  RELATION  CLASS  EXISTS  FOR  A  GIVEN  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RCCHEK 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  CHECKS  IF  A  RELATION  CLASS 
EXISTS  FOR  A  GIVEN  MODEL 

EXTRACT  THE  ENTITY  CLASS  AND  RELATION 

CLASS  LABELS  THEN  VERIFY  THAT  THE 
RELATION  EXISTS  FOR  THE  GIVEN  MODEL 
NUMBER. 


ARGUMENTS : 

MODEL-NO 

DSPLY [S9 (9) ] 

OLD-ID 

DSPLY [X ( 30) ] 

OBJ-ID-2 

DSPLY [X (30) ] 

OBJ-ID-3 

DSPLY [X ( 30) ] 

RC-NO 

DSPLY [S9 (9) ] 

INCLUDE  FILES: 

LISTNOS 

ROUTINES  CALLED: 

CPFNXT 

VERENT 

VERCR 

VERLR 
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NAME:  RCCHEK1 

PURPOSE:  CHECK  IF  A  RELATION  CLASS  EXISTS  FOR  A  GIVEN  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RCCHEK1 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  CHECKS  IF  A  RELATION  CLASS 
EXISTS  FOR  A  GIVEN  MODEL 

EXTRACT  THE  ENTITY  CLASS  AND  RELATION 

CLASS  LABELS  THEN  VERIFY  THAT  THE 
RELATION  EXISTS  FOR  THE  GIVEN  MODEL 
NUMBER. 


ARGUMENTS : 


MODEL-NO 
NEW- ID 
OBJ-ID-2 
OBJ-ID-3 
RC-NO 


INCLUDE  FILES: 


DSPLY [S9 (9) ] 
DSPLY [X (30) ] 
DSPLY (X (30)  ] 
DSPLY [X (30)  ] 
DSPLY [S9 (9)  ] 


LISTNOS 

ROUTINES  CALLED: 


VERENT 

VERCR 

VERLR 
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NAME:  RECKW2 

PURPOSE:  COMPARES  ENTITY  CLASS  KEYWORDS  BETWEEN  MODELS 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  RECKW2 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  TOES  A  SEQUENTIAL  SEARCH  COMPARING  ENTITY  CLASS 
KEYWORDS  OF  TWO  MODELS  TO  FIND  A  MATCH.  IF  A  MATCH  IS  FOUND, 
THIS  IS  REPORTED  TO  THE  USER. 


ARGUMENTS : 


DSPLY[S9 (9) ] 
RECRD 


INCLUDE  FILES: 


SRVRET 

KWDTBL 

ERRPRO 


MODEL-NO 

KW-TABLE 


ROUTINES  CALLED: 


RETRECP 

ADDPARM 

ERRPRO 
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NAME:  RECSEMS 

PURPOSE:  SEMANTICS  CHECKS  FOR  RECORD  VARIABLES  BEFORE 
INSERTION  TO  CDM. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  RECSEMS 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  PROVIDES  THE  SEMANTICS  CHECKS  FOR  LEVELS, 
INDEXING,  KEYS,  ETC.  IF  NO  ERRORS  OCCUR,  A  ZERO  STATUS 
WILL  BE  RETURNED  TO  DEFFLD  INDICATING  THE  RECORD  CAN 
BE  INSERTED  INTO  THE  CDM. 

VERIFIES  ALL  INFORMATION  IN  DFTBL 
BY  CHECKING  LEVELS,  KEYS, 

SUB-COMPONENTS,  INDEXING,  REDEFINES,  ETC. 


ARGUMENTS : 


DBMS -NAME 
DFT-TABLE 
LEVEL-STACK 
NDDL-STATUS 


DSPLY [X (30) ] 

RECRD 

RECRD 

DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


LICTNOS 

ERRCDM 

UNIQENO 

TDFTBL 

DFTBL 

ERRPRO 


ROUTINES  CALLED: 


UERROR 

VERDTYP 

ERRPRO 
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NAME:  RELKW 

PURPOSE:  CHECKS  RC  KW  BETWEEN  MODELS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RELKW 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  CONTROLS  THE  PROCESSING  LOGIC  TO  POPULATE  A 
KEYWORD  TABLE  WITH  RELATION  CLASS  KEYWORDS  OF  ONE  MODEL, 
THEN  SEARCHES  THIS  TABLE  FOR  MATCHES  FROM  THE  SECOND  MODEL. 


ARGUMENTS : 


MOD-NOl  DSPLY [ S9 ( 9 ) ] 
MOD-N02  DSPLY [ S9 ( 9 ) ] 
MOD-NAME 1  DSPLY [ X ( 30) ] 
MOD-NAME2  DSPLY [ X ( 3  0 ) ] 


INCLUDE  FILES: 


SRVRET 

KWDTBL 

ERRPRO 


ROUTINES  CALLED: 


RETRCKW 

RRCKW2 

ERRPRO 
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NAME:  REMVIEW 

PURPOSE:  POPULATE  VIEW  DEFINITION  AND  ES-CS-MAPPING 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  REMVIEW 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


REMVIEW  CONTROLS  THE  LOGIC  FOR  VERIFYING  THE 
RELATION  STRUCTURE  IN  THE  CREATE  VIEW  COMMAND, 
AND  POPULATING  THE  VIEW  DEFINITION  AND  ES  TO  CS 
MAPPING. 


ARGUMENTS : 


VIEW-NO 

VIEW-FROM-LIST 

VIEW- DATA- ITEM-LIST 

VIEW-RETRIEVE-LIST 

CS-QUAL-CRITERI A-LIST 

BOOLEAN-LIST 

RET-STATUS 


DSPLY [S9 (9)  ] 

RECRD 

RECRD 

RECRD 

RECRD 

RECRD 

DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

VWFROM 

VWDI 

VWRETR 

CSQCLST 

BOOLST 


ROUTINES  CALLED: 


STRQCRF 
PI FROM 
VALVWRC 
PNOFROM 
UERROR 
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NAME:  RENMOBJ 

PURPOSE:  UPDATE  EXISTING  OBJECT  NAME  WITH  NEW  OBJECT  NAME 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RENMOBJ 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THE  OBJECT  NAME  MAY  BE  ENTITY,  ATTRIBUTE, 
RELATION,  KEYWORD,  MODEL,  DOMAIN,  VIEW,  HOST, 
SET,  RECORD,  FIELD,  DATATYPE,  DATABASE,  OR 
DATAITEM.  VERIFY  THAT  THE  OLD  IDENTIFIER  TO 
BE  RENAMED  EXISTS  AND  ALSO  THE  NEW  NAME  DOES 
NOT  EXIST.  NOW  UPDATE  THE  OBJECT  NAME. 
MODIFIED  TO  CORRECT  RELATION  SYNTAX  8/30/88 

ARGUMENTS : 


MODEL-NO  DSPLY [ S9 ( 9 ) ] 

INCLUDE  FILES: 


LISTNOS 

ROUTINES  CALLED: 


CPFONE 

LOWUPP 

VERENT 

VERATT 

VERKW 

VERMOD 

VERDOM 

VERVIEW 

VERHST 

CPFNXT 

VERDI ID 

VERSTID 

VERRTID 

VERDFID 

VERDB 

VERDTN 

RCCHEK 

UERROR 

RCCHEK1 

UPDECNM 

UPDACNM 

UPDRCNM 

UPDTKW 

UPDMNAM 

UPDTDOM 

UPDVIEW 
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